Category : Pascal Source Code
Archive   : TVSPY.ZIP
Filename : TEXTCOLL.PAS

 
Output of file : TEXTCOLL.PAS contained in archive : TVSPY.ZIP

unit textcoll;

interface
uses objects;

type PTextCollection = ^TTextCollection;
TTextCollection = object(TCollection)
procedure Insert(Item: pointer); virtual;
procedure FreeItem(Item: pointer); virtual;
end;


implementation

procedure TTextCollection.Insert(Item: pointer);
begin
AtInsert(Count,Item);
end;

procedure TTextCollection.FreeItem(Item: pointer);
begin
if Item <> nil then DisposeStr(Item);
end;

end.