Buscar por:

Salvando e restaurando uma tstringgid

Código

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;