第一问答网»论坛 › 中问网 › 问答 › delphi如何将stringgrid中的内容保存呢？

delphi如何将stringgrid中的内容保存呢？

11 |

0 | 2010-3-3 14:33:39 | 显示全部楼层 |阅读模式

procedure SaveGrid(g:TStringGrid; filename:string);var i:integer; t:TStringlist;begin t:=TStringlist.Create; for i:=0 to g.RowCount-1 do beging.Rows.Delimiter:=',';t.Add(g.Rows.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 beging.Rows.Delimiter:=',';g.Rows.DelimitedText:=t.Strings; 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;

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行