Thank's leledumbo!
I don't have many time to test it under windows...
Corrected version is available...
2009/2/2 leledumbo <leledumbo_c...@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@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
