delphi从文本到数组
展开全部
//读文件 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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询