"Jamie Dale" <jamie.dale@yahoo.com> wrote in message
news:478e8daf$1@newsgroups.borland.com...
> The problem is the OnDisconect method. I need to free the
> object but I am not sure how to determine what object it
> is - TUser or TFileClient.
If both types are classes that are derived from TObject, then you don't need
to know at all. The TObject destructor is virtual so just call Free() on
the Data property directly and let polymorphism do the rest for you, ie:
AThread.Data.Free;
AThread.Data := nil;
> I tried: If AThread.Data = TUser... Incompatible types..
You need to use the 'is' operator instead:
If AThread.Data is TUser then
Note that such a comparison will only work if both types really are TObject
descendants.
Gambit
