Subversion Repositories jumper

Rev

Rev 1 | Rev 11 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 9
Line 113... Line 113...
113 
begin
 113 
begin
114 
  result := '';
 114 
  result := '';
115 
 
 115 
 
116 
  if not FileExists(InputFile) then
 116 
  if not FileExists(InputFile) then
117 
  begin
 117 
  begin
118 
    ShowMessage(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]));
 118 
    MessageDlg(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]), mtError, [mbOk], 0);
119 
    Exit;
 119 
    Exit;
120 
  end;
 120 
  end;
121 
 
 121 
 
122 
  AssignFile(f, InputFile);
 122 
  AssignFile(f, InputFile);
123 
  Reset(f);
 123 
  Reset(f);