Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2000-10

question about compiler/messages.pas

3 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Michail A.Baikov

number of string: 180

  {$I-}
   reset(f);
  {$I+}
  if ioresult0 then
   begin
     WriteLn('*** message file '+fn+' not found ***');
     exit;
   end;

Why everything not found? Better use Unable open blablabla... Don't confusing users ;))

Reply by email

Florian Klaempfl
to Michail A.Baikov
you wrote 13 lines
number of string: 180 {$I-} reset(f); {$I+} if ioresult0 then begin WriteLn('*** message file '+fn+' not found ***'); exit; end; Why everything not found? Better use Unable open blablabla... Don't confusing users ;))

Better would be to check the ioresult then and do a case ...

Reply by email

Michail A.Baikov
to Florian Klaempfl

But for every error make case? ;) It's bad. May be i'm make function (ex: errormessage(io:integer):string) and send to fpc-devel afternoon. ok?

Earlier message 28 lines
----- Original Message ----- From: "Florian Klaempfl" To: Sent: Saturday, October 21, 2000 2:01 AM Subject: Re: [fpc-devel]question about compiler/messages.pas > At 20:20 20.10.2000, you wrote: > >number of string: 180 > > > > {$I-} > > reset(f); > > {$I+} > > if ioresult0 then > > begin > > WriteLn('*** message file '+fn+' not found ***'); > > exit; > > end; > > > >Why everything not found? Better use Unable open blablabla... Don't > >confusing users ;)) > > Better would be to check the ioresult then and do a case ... > > > _______________________________________________ > fpc-devel maillist - > http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply by email