procedure TForm1.tefxButton1Click(Sender: TObject);
var
fn:string;
F:textfile;
begin
if TEopenDialog1.Execute then
fn:=TeOpenDialog1.Files.Text;
AssignFile(F,fn);
Reset(F);
Showmessage(fn);
end;弹出提示错误为:Project dr.exe raised exception class EInOutError with message'I/O'error123'.
Porcess stopped.Use Step or Run to continue.
光标停在Reset(F);上怎么回事?
var
fn:string;
F:textfile;
begin
if TEopenDialog1.Execute then
fn:=TeOpenDialog1.Files.Text;
AssignFile(F,fn);
Reset(F);
Showmessage(fn);
end;弹出提示错误为:Project dr.exe raised exception class EInOutError with message'I/O'error123'.
Porcess stopped.Use Step or Run to continue.
光标停在Reset(F);上怎么回事?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货