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

鑫邦科技

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

aminghanhua

1. procedure SaveGrid(g:TStringGrid; filename:string);
   
2. var i:integer;
   
3. t:TStringlist;
   
4. begin
   
5. t:=TStringlist.Create;
   
6. for i:=0 to g.RowCount-1 do
   
7. begin
   
8. g.Rows[i].Delimiter:=',';
   
9. t.Add(g.Rows[i].DelimitedText);
   
10. end;
    
11. t.SaveToFile(filename);
    
12. t.Free;end;
    
13. procedure LoadGrid(g:TStringGrid; filename:string);
    
14. var i:integer;
    
15. t:TStringlist;
    
16. begin t:=TStringlist.Create;
    
17. t.LoadFromFile(filename);
    
18. g.RowCount:=t.Count;
    
19. for i:=0 to t.Count-1 do
    
20. begin  
    
21. g.Rows[i].Delimiter:=',';
    
22. g.Rows[i].DelimitedText:=t.Strings[i];
    
23. end;
    
24. t.Free;
    
25. end;
    
26. procedure TForm1.BitBtn1Click(Sender: TObject);
    
27. begin
    
28. SaveGrid(StringGrid1,'f.txt');
    
29. end;
    
30. procedure TForm1.Button1Click(Sender: TObject);
    
31. begin
    
32. LoadGrid(StringGrid1,'f.txt');
    
33. end;

复制代码

11年__那些事儿

楼上写的能实现
+1

zhouzhou

先留着以后用