一
一剑飘雪
Unregistered / Unconfirmed
GUEST, unregistred user!
var
ed1,ed2:string;
myfile:textfile;
filename:string;
begin
ed1:=edit1.text;
ed2:=edit2.text;
filename:='temp.txt';
rewrite(myfile);
write(ed1);
write(ed2); {不能把第二个加进去,不然有问题,我就是不知是什么问题}
end;
if opendialog1.execute then
edit2.text:=opendialog1.filename;
ed1,ed2:string;
myfile:textfile;
filename:string;
begin
ed1:=edit1.text;
ed2:=edit2.text;
filename:='temp.txt';
rewrite(myfile);
write(ed1);
write(ed2); {不能把第二个加进去,不然有问题,我就是不知是什么问题}
end;
if opendialog1.execute then
edit2.text:=opendialog1.filename;