Fastream Technologies wrote:
> Yes sir, you really got it! :)
I post it again with a new subject, since most likely it
effects any V6 component.
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;
---
Arno Garrels [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
--
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
