> I think I got it, please try: > > procedure TIcsBufferHandler.DeleteAllData; > var > Buf : TIcsBuffer; > begin > Buf := FInUseList.RemoveFromListHead; > while Assigned(Buf) do begin > add => Buf.WrCount := 0; > add => Buf.RdCount := 0; > FFreeList.AddToListHead(Buf); // Put in free list > Buf := FInUseList.RemoveFromListHead; > end; > end;
Your change is already in my source code. Strange you don't have it because it has not been changed recently IMO. And it is not marked as a change in my source. Very strange. -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
