Delphi StringGrid使用全書1

領測軟件測試網

*******************************************

打開一個已有的文本文件,并將內容放到stringgrid中,文本行與stringgrid行一致; 
在文本中遇到空格則放入下一cells.
搞定！注意，我只寫了一個空格間隔的，你自己修改一下splitstring可以用多個空格分隔！

procedure TForm1.Button1Click(Sender: TObject);
var
aa,bb:tstringlist;
i:integer;
begin
aa:=tstringlist.Create;
bb:=tstringlist.Create;
aa.LoadFromFile(’c:.txt’);
for i:=0 to aa.Count-1 do
begin
　 bb:=SplitString(aa.Strings[i],’ ’);
　 stringgrid1.Rows[i]:=bb;
end;
aa.Free;
bb.Free;
end;

其中splitstring為：

function SplitString(const source,ch:string):tstringlist;
var
temp:string;
i:integer;
begin

文章來源于領測軟件測試網 http://www.kjueaiud.com/