一个出错的问题(50分)

  • 主题发起人 主题发起人 一剑飘雪
  • 开始时间 开始时间

一剑飘雪

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;
 

rewrite前加一句
assignfile()是一是
 
var
ed1,ed2:string;
myfile:textfile;
filename:string;
begin
ed1:=edit1.text;
ed2:=edit2.text;
filename:='temp.txt';
assignfile(myfile,filename);{加了也出错,只要你把edit2.text用opendialog控件加入文件路径就会出错}
rewrite(myfile);
write(ed1);
write(ed2); {不能把第二个加进去,不然有问题,我就是不知是什么问题}
end;

if opendialog1.execute then
edit2.text:=opendialog1.filename;
 
var
ed1,ed2:string;
myfile:textfile;
filename:string;
begin
ed1:=edit1.text;
ed2:=edit2.text;
filename:='c:/temp.txt';
AssignFile(myfile, 'c:/temp.txt');
rewrite(myfile);
Writeln(myfile,ed1);
Writeln(myfile,ed2); {不能把第二个加进去,不然有问题,我就是不知是什么问题}
CloseFile(myfile);
end;
我已经测试过了。成功了。不知道。你需要的换行写,还是写在前一个后面。
这是个换行写的。
 
谢谢你小虫飞鱼!
 
接受答案了.
 
后退
顶部