f: Textfile;
str: string;
begin
AssignFile(f, 'unit.dat');
Reset(f);
Readln(f,str);
lst1.Items.Add (str) ;
CloseFile(f);
end；
只显示第一行为什么
delphi中如何读取一个文本中的数据
答案:2 悬赏:40 手机版
解决时间 2021-04-14 20:17
- 提问者网友：太高姿态
- 2021-04-14 00:45
最佳答案
- 五星知识达人网友：逐風
- 2021-04-14 01:41
procedure TForm1.Button1Click(Sender: TObject);
var
mylist:TStringlist;
begin
if fileexists('c:\test.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('c:\test.txt');{读文件到mylist}
listbox1.Items:=mylist;
end;
end;
var
mylist:TStringlist;
begin
if fileexists('c:\test.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('c:\test.txt');{读文件到mylist}
listbox1.Items:=mylist;
end;
end;
全部回答
- 1楼网友：蕴藏春秋
- 2021-04-14 02:55
lst1.Items.LoadFromFile();
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯