delphi从文本到数组

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:51:49
我想从文本文件中读取数据以回车为分隔符组成一个新的数组，怎么办？我是新手，请举例说明。谢谢

//读文件 c:\1.txt 内容，以回车为分割存入数组
procedure TForm1.Button4Click(Sender: TObject);
var
slist:TStringList; //存储文本文件内容
pstrarray:array of string; //数组
i,icount:integer; //文本文件行数
begin
slist:=TStringList.Create;
slist.LoadFromFile('c:\1.txt'); //把文件内容载入到字符串数组列表
icount:=slist.Count;
setlength(pstrarray,icount); //设置动态数组长度
for i:=0 to icount-1 do //遍历文本，把每行数据存入数组
begin
pstrarray[i]:=slist.Strings[i];
end;
slist.free;
end;