[Lazarus] Delphi post-XE3 roadmap
waldo kitty
wkitty42 at windstream.net
Wed Aug 29 06:05:04 CEST 2012
On 8/28/2012 06:47, Bernd wrote:
> The pragmatic fix to he above problem was:
>
> procedure TConnection.OnTCPFail(ASocket: TLHandle; const Error: String);
> begin
> Self._AddRef;
> FDisconnectLock.Acquire;
>
> [...]
>
> FDisconnectLock.Release;
> Self._Release; //<-- now we will be freed exactly here!
> end;
so adding that one line negates the previous .Free line(s)??
i'm still learning all this new-fangled stuff... i'm a (very) oldschool
procedural coder and having things popping into and out of existence whenever
they want to is something i'm still trying to wrap my head around :/ :(
More information about the Lazarus
mailing list