Zitat von
OldGrumpy:
Grobe Faustregel: Alles was Du selber erzeugst, musst Du auch wieder abräumen. Ausnahmen bestätigen die Regel (z.B. TObjectList, Childcontrols, etc.)
@OldGrumpy: Das heisst dann wohl dass ich auch TVL.Free setzen muss, da TTextvorlage eine von mir erstellte Klasse ist?
Delphi-Quellcode:
procedure TfrmErstgespraech.ZeigeTexthilfeAn;
var
TVL : TTextvorlage;
FfrmTH : TFrmTexthilfe;
begin
TVL := TTextvorlage.Create;
try
TVL.Produkt:= FD.Produkt;
TVL.Kategorie:= pcErstgespraech.ActivePage.Caption;
FfrmTH := TFrmTexthilfe.Erzeugen(TVL);
FfrmTH.ShowModal;
if FfrmTH.ModalResult = mrOK then
begin
ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
end;
finally
FfrmTH.Free;
end;
TVL.Free;
end;
Oliver