Abend an alle,
ich schreibe gerade in Programm welches einige Formulare erstellt, die von TForm abgeleitet sind.
Diese speichere ich in einer Liste. Da bei mir ein erstelltes Formular 50 MB Speicher benötigt möchte ich gerne diese auch aus der TList wieder entfernen können, aber irgendwie scheitere ich daran!?
Die TList speichert Zeiger dieses Records:
Delphi-Quellcode:
RTFieldForm = record
Form : TFieldForm;
Num : Integer;
end;
Das erstellen und anzeigen funktioniert auch wunderbar, nur das freigeben halt nicht. Hier mein gescheiterter Code:
Delphi-Quellcode:
var
F : PFieldForm;
begin
new(F);
F := lFields.Items[0];
FreeAndNil(F^.Form); //Free funktioniert auch nicht...
Dispose(f);
end;
Ich bin mir ziemlich sicher, dass Item[0] auch einen richtigen Pointer beeinhaltet.
Gruß Janek