Question

delphi listbox初始化

请问，我点击按钮，打开一个form在这个form上有一个TpageControl，某一个Tab上有一个listbox.怎么样才能在打开form的时候让这个listbox中显示一个文本文件中的一条条记录啊，谢谢

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
Var
Filename:String;
MyFile:Textfile;
i:Integer;
S:string;
begin
Filename:='D:/a.txt';
AssignFile(Myfile,filename);
try
reset(Myfile);
Except
rewrite(Myfile);
end;
i:=0;
while not seekEof(Myfile) do
begin
readln(Myfile,s);
ListBox1.Items.Add(S);
inc(i);
end;
CloseFile(Myfile);
end;

Answer 2

from.create 中加入相应的代码