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
