Conteúdo De Uma Stringgrid

[Guest - Roger -]

Existe uma maneira de eu salvar o conteúdo de uma striggrid do delphi em um arquivo .txt por exemplo, e poder abrir este arquivo depois novamente na stringgrid?

Agradeço desde já a atenção,

Roger.

[Guest - Andre -]

Roger,

Existe Sim olha abaixo:

Procedure SaveGrid;

var

f:textfile;

x,y:integer;

begin

assignfile (f,'NomeArquivo');

rewrite (f);

writeln (f,stringgrid.colcount);

writeln (f,stringgrid.rowcount);

For X:=0 to stringgrid.colcount-1 do

For y:=0 to stringgrid.rowcount-1 do

writeln (F, stringgrid.cells[x,y]);

closefile (f);

end;

Procedure LoadGrid;

var

f:textfile;

temp,x,y:integer;

tempstr:string;

begin

assignfile (f,'NomeArquivo');

reset (f);

readln (f,temp);

stringgrid.colcount:=temp;

readln (f,temp);

stringgrid.rowcount:=temp;

For X:=0 to stringgrid.colcount-1 do

For y:=0 to stringgrid.rowcount-1 do

begin

readln (F, tempstr);

stringgrid.cells[x,y]:=tempstr;

end;

closefile (f);

end;

[Guest - Andre -]

Roger,

Existe Sim olha abaixo:

Procedure SaveGrid;

var

f:textfile;

x,y:integer;

begin

assignfile (f,'NomeArquivo');

rewrite (f);

writeln (f,stringgrid.colcount);

writeln (f,stringgrid.rowcount);

For X:=0 to stringgrid.colcount-1 do

For y:=0 to stringgrid.rowcount-1 do

writeln (F, stringgrid.cells[x,y]);

closefile (f);

end;

Procedure LoadGrid;

var

f:textfile;

temp,x,y:integer;

tempstr:string;

begin

assignfile (f,'NomeArquivo');

reset (f);

readln (f,temp);

stringgrid.colcount:=temp;

readln (f,temp);

stringgrid.rowcount:=temp;

For X:=0 to stringgrid.colcount-1 do

For y:=0 to stringgrid.rowcount-1 do

begin

readln (F, tempstr);

stringgrid.cells[x,y]:=tempstr;

end;

closefile (f);

end;

Andre

MSN = andre_lombes@hotmail.com

morrab@gmail.com

[Guest - Roger -]

OK!!!!!

Agradeço bastante a ajuda!!!

Se não for pedir demais, você poderia me dar umas dicas de como faço para:

- Excluir dados da Grid solicitando uma confirmação do usuário;

- Sair do sistema verificando se os dados estão gravados.

- Ordenar os dados ao clicar na linha do cabeçalho.

Mais uma vez agradeço a atenção!