Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - (Eventuell) mehrmaliges freigeben


Mortal-Shadow - Sa 13.09.08 15:32
Titel: (Eventuell) mehrmaliges freigeben
Hi,
In meinem Programm gibt es mehrere Forms.
In einer macht man Eingaben, und in der zweiten werden dann eine Anzahl Bilder abhängig von den Eingaben erschaffen.
Ca. so:
Dabei ist Bild ein dynamischer Array von TImage.

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
setlength(bild, Eingabe);
For i := 0 to (Eingabe -1) do
   begin
   bild[i] := TImage.Create(nil);
   bild[i].parent := self;
   {...}

Wenn man nun die Bilderform schliest, wird die Eingabeform wieder gezeigt und man kann neue Angaben machen.
Die Frage ist nur - was mache ich mit den bisherigen Bildern?
Ich habe es bisher so versucht:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var count1: integer;
begin
Form1.show;
For count1 := (Eingabe - 1) downto 0 do
    bild[count1].free;
end;

Allerdings bekomme ich bei mehrmaligem Ausführen die 'Accessviolation' - Fehlermeldung.
Die Bilder alle im Speicher liegen lassen bis Programmende will ich auch nicht, zumal man sie beim nächsten Aufruf der Bilderform noch sieht.
Wie könnte ich dieses Problem lösen?


jaenicke - So 14.09.08 13:50
1. Wenn du als Parameter beim Erzeugen des TImage-Objekts nicht nil sondern die Form angibst, wird es aus dem Speicher entfernt, wenn das Formular aus dem Speicher entfernt wird, ein Freigeben ist dann nicht mehr nötig (und sollte auch nicht mehr geschehen).
2. Wenn du in FormClose Action auf caFree setzt, wird das Formular aus dem Speicher entfernt. Dann sind die Objekte auch ggf. alle freigegeben.
Du kannst das automatische Erzeugen der Formulare entweder ganz rausnehmen oder vorher prüfen, ob die Formular-Variable nil ist, bevor du vor der Anzeige des Formulars dieses erzeugst.


Hidden - So 14.09.08 14:12
Und der Vollständigkeit halber: Deine Freigabe sollte besser so aussehen, dann würde das Problem afaik auch nicht auftreten:

Delphi-Quelltext 
1:
2:
 
For count1 := (Eingabe - 1) downto 0 do
    FreeAndNil(bild[count1]);


mfG,


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!