[fpc-pascal] Graphic LRS creator

[papelhigienico at gmail.com]

Thank's leledumbo!

I don't have many time to test it under windows...


Corrected version is available...

2009/2/2 leledumbo <leledumbo_cool at yahoo.co.id>

>
> 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.
>
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20090202/f3377bd2/attachment.html>