On 1/5/2014 6:26 PM, Sven Barth wrote:
On 05.01.2014 19:24, waldo kitty wrote:
following up on this... this is what i came up with... is it right/proper?
{$IF (FPC_FULLVERSION >= 20701)}
{$INFO initializing dirinfo with Default(SearchRec)}
dirinfo := default(searchrec);
{$ELSE}
{$PUSH}
{$HINTS OFF}
{$INFO initializing dirinfo with fillchar(dirinfo,sizeof(dirinfo),$00)}
fillchar(dirinfo,sizeof(dirinfo),$00);
{$POP}
{$ENDIF}
Should be correct.
thanks! it seems to work on the few systems where i tested it... we have to
ensure that we get it placed into our existing code base ;)
--
NOTE: No off-list assistance is given without prior approval.
Please keep mailing list traffic on the list unless
private contact is specifically requested and granted.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
