Thank's leledumbo!<br><br>I don't have many time to test it under windows...<br><br><br>Corrected version is available...<br><br><div class="gmail_quote">2009/2/2 leledumbo <span dir="ltr"><<a href="mailto:leledumbo_cool@yahoo.co.id">leledumbo_cool@yahoo.co.id</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
I notice that it's not directly compilable under Windows. First, you have<br>
some syntax errors:<br>
<br>
{$ifdef MSWINDOWS}<br>
newLine = chr(13)+chr(10) // missing semicolon!!!<br>
{$else}<br>
newLine = chr(10);<br>
{$endif}<br>
<br>
I suggest LineEnding constant instead. And I don't know about you, but this<br>
doesn't (and shouldn't) work:<br>
<br>
procedure ...(...,pattern: string; ...);<br>
const<br>
  {$ifdef MSWINDOWS}<br>
  dirpattern = pattern;<br>
  {$else}<br>
  dirpattern = '*';<br>
  {$endif}<br>
...<br>
<br>
Typed const won't work either, use var instead. One more thing: FNMatch is<br>
in UnixUtil, which is NOT available under Windows. Therefore, the<br>
conditional compilation switch is wrong:<br>
<br>
{$ifndef Unix} // should be {$ifdef}<br>
... FNMatch(...) ...<br>
{$endif}<br>
<br>
Now it's compilable under Windows.<br>
<font color="#888888">--<br>
View this message in context: <a href="http://www.nabble.com/Graphic-LRS-creator-tp21745323p21783257.html" target="_blank">http://www.nabble.com/Graphic-LRS-creator-tp21745323p21783257.html</a><br>
</font><div class="Ih2E3d">Sent from the Free Pascal - General mailing list archive at Nabble.com.<br>
<br>
_______________________________________________<br>
</div><div><div></div><div class="Wj3C7c">fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br>
</div></div></blockquote></div><br>