[fpc-pascal] Graphic LRS creator

leledumbo leledumbo_cool at yahoo.co.id
Mon Feb 2 03:48:04 CET 2009


I notice that it's not directly compilable under Windows. First, you have
some syntax errors:

{$ifdef MSWINDOWS}
newLine = chr(13)+chr(10) // missing semicolon!!!
{$else}
newLine = chr(10);
{$endif}

I suggest LineEnding constant instead. And I don't know about you, but this
doesn't (and shouldn't) work:

procedure ...(...,pattern: string; ...);
const
  {$ifdef MSWINDOWS}
  dirpattern = pattern;
  {$else}
  dirpattern = '*';
  {$endif}
...

Typed const won't work either, use var instead. One more thing: FNMatch is
in UnixUtil, which is NOT available under Windows. Therefore, the
conditional compilation switch is wrong:

{$ifndef Unix} // should be {$ifdef}
... FNMatch(...) ...
{$endif}

Now it's compilable under Windows.
-- 
View this message in context: http://www.nabble.com/Graphic-LRS-creator-tp21745323p21783257.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.




More information about the fpc-pascal mailing list