Question

delphi中如何读取一个文本中的数据大神们帮帮忙

f: Textfile; str: string; begin AssignFile(f, 'unit.dat'); Reset(f); Readln(f,str); lst1.Items.Add (str) ; CloseFile(f); end； 只显示第一行为什么

Answer 1

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;

希望采纳