11.12.pas

来自「delphi renyuanguanlixinxioxitong」· PAS 代码 · 共 21 行

Program Project1;
uses Classes,Dialogs,SysUtils;
{$APPTYPE CONSOLE}
var
F:TextFile;
S:String;
Begin
AssignFile(F，'F1.TXT'); 
     try
reset(F);
     try
           readln(F,s); 
finally
           CloseFile(F); 
end;
    except 
on EinOutError do 
ShowMessage('Error in FileIO');
    end; 
end.