如何把StringGrid1中的内容保存到文件中？

鑫邦科技

菜鸟求详解，越详细越好，最好给代码加注释，痛哭流涕的表示感激。

aminghanhua

procedure SaveGrid(g:TStringGrid; filename:string);
var i:integer; 
t:TStringlist;
begin 
t:=TStringlist.Create; 
for i:=0 to g.RowCount-1 do
begin 
g.Rows[i].Delimiter:=','; 
t.Add(g.Rows[i].DelimitedText);
end; 
t.SaveToFile(filename);
t.Free;end;
procedure LoadGrid(g:TStringGrid; filename:string);
var i:integer;
t:TStringlist;
begin t:=TStringlist.Create;
t.LoadFromFile(filename); 
g.RowCount:=t.Count;
for i:=0 to t.Count-1 do
begin  
g.Rows[i].Delimiter:=',';
g.Rows[i].DelimitedText:=t.Strings[i];
end; 
t.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SaveGrid(StringGrid1,'f.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin 
LoadGrid(StringGrid1,'f.txt');
end;

11年__那些事儿

楼上写的能实现
+1

zhouzhou

先留着以后用