Hallo NormanNG, hallo Jelly
danke für die Hinweise. Im Prinzip kann ich Tobjectlist nehmen, hatte ich auch bisher. Einige der Funktionen sind auch direkt als Ergänzung zu Tobjectlist gewesen. Ich habe es nur zum Debuggen umgestellt auf Tobject.
Ich habe es mal auf das Wichtigste beschränkt.
Delphi-Quellcode:
type
TParser = class (TObject)
ATagParser: TATagParser;
ParserResult : TTagList;
...
public
constructor Create;
destructor destroy;override;
..
property TagList:TTagList read ParserResult;
end; //Type
var Parser:TParser;
....
constructor TParser.create;
begin;
inherited create;
ParserResult:=Taglist.Create; [b]<--- hier erzeugt er die neue Instanz und landet im TParser.destroy[/b]
....
destructor TParser.destroy;
begin
ParserResult.Free;
TextResult.Free;
ATagParser.Free;
inherited destroy;
end;
///---------------------------------------------------------------
initialization
Parser := TParser.Create;
finalization
Parser.free;
end.