关于写文本文件的问题
procedure TForm1.Button1Click(Sender: TObject);
var
f1:textfile;
ch:string;
begin
assignfile(f1, 'lb.ml ');
append(f1);
if opendialog1.Execute then
ch:=opendialog1.FileName ;
ListBox1.Items.Add(ch);
writeln(f1,ch);
closefile(f1);
end;
那为大侠帮帮忙 为什么每次只能写入一个opendialog1.FileName 第二次以后的都写不进文件
如果改成
procedure TForm1.Button1Click(Sender: TObject);
var
f1:textfile;
ch:string;
begin
assignfile(f1, 'lb.ml ');
if opendialog1.Execute then
ch:=opendialog1.FileName ;
ListBox1.Items.Add(ch);
append(f1);
writeln(f1,ch);
closefile(f1);
就一个opendialog1.FileName 都写不进去了
高手帮帮忙 我刚学一个星期~!!!
先谢谢啦!!