Delphi StringGrid使用全书1

领测软件测试网

f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
　 // Write number of Columns/Rows
　 Writeln(f, ColCount);
　 Writeln(f, RowCount);
　 // loop through cells
　 for i := 0 to ColCount - 1 do
　　 for k := 0 to RowCount - 1 do
　　　 Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

// Load a TStringGrid from a file
procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
AssignFile(f, FileName);
Reset(f);
with StringGrid do

文章来源于领测软件测试网 https://www.ltesting.net/