Title: Save StringGrid to file
Use StringGrid2File procedure to save TStringGrid to file.
Use File2StringGrig to restore TStringGrid from file.
procedure TForm1.File2StringGrid(StringGrid: TStringGrid;
FileName: String);
var
F: TextFile;
Tmp, x, y: Integer;
TmpStr: string;
begin
AssignFile(F, FileName);
Reset(F);
Readln(F, Tmp);
StringGrid.ColCount:=Tmp;
Readln(F, Tmp);
StringGrid.RowCount:=Tmp;
for x:=0 to StringGrid.ColCount-1 do
for y:=0 to StringGrid.RowCount-1 do
begin
Readln(F, TmpStr);
StringGrid.Cells[x,y]:=TmpStr;
end;
CloseFile(F);
end;
procedure TForm1.StringGrid2File(StringGrid: TStringGrid;
FileName: String);
var
F: TextFile;
x, y: Integer;
begin
AssignFile(F, FileName);
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;