11.12.pas

delphi renyuanguanlixinxioxitong

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.