Thanks Anton for your suggestion, I will apply it. I hope FPC developers will include StringRefCount() to the RTL.
By the way, how do I call internal compiler functions directly (maybe using a tricky way) such as system.fpc_ansistr_incr_ref() and system.fpc_ansistr_decr_ref? I couldn't call those kind of functions from my program, I guest it is caused by compilerproc definition. ----- Original Message ---- From: Anton Tichawa <anton.tich...@chello.at> To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org> Sent: Fri, April 30, 2010 12:44:08 AM Subject: Re: [fpc-pascal] Is there a StringRefCount() equivalence? On Thu, 2010-04-29 at 10:30 -0700, Bihar Anwar wrote: > Delphi has StringRefCount() function (I'm not aware since what version it was > introduced). I just curious, is there a function equivalent to it in FPC? > Currently, I just steal a portion of code from System unit: > > type > PAnsiRec = ^TAnsiRec; > TAnsiRec = packed record > Ref, > Len : SizeInt; > First : Char; > end; > > const > FirstOff = SizeOf(TAnsiRec) - 1; shouldn't that read e.g. > const > FirstOff = SizeOf(TAnsiRec) - SizeOf(Char); > SCNR Anton _______________________________________________ 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