ذخيره كردن StringGrid در فايل

Save/Load String Grid in 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;​