delphi从文本到数组

显示全部楼层 · 2008-7-15 09:29:52

我想从文本文件中读取数据以回车为分隔符组成一个新的数组，怎么办？我是新手，请举例说明。谢谢

千问 · 2008-7-15 09:29:52

//读文件 c:\1.txt 内容，以回车为分割存入数组procedure TForm1.Button4Click(Sender: TObject);varslist:TStringList; //存储文本文件内容pstrarray:array of string; //数组i,icount:integer;
//文本文件行数beginslist:=TStringList.Create;slist.LoadFromFile('c:\1.txt');//把文件内容载入到字符串数组列表icount:=slist.Count;setlength(pstrarray,ico