[gelöst] ACCESS VIOLATION

[juelin]

Hallo,
ich habe Lazarus 4.2 mit FPC 3.2.2 unter Windows 11.
Mein Programm hat eine TForm und eine TFrame.
In der TForm habe ich eine globale Variable "INFO: TStringList" declariert.
In der Procedure "TForm1.FormActivate" aktiviere ich die Variable "Info:=TStringList.Create".
In der Procedure "TForm1.FormClose" gebe ich die Variable wieder frei "Info.Free".
TForm1 siehe Anhang Bild1.
TFrame1 siehe Anhang Bild2.

Wenn ich nun das Programm starte (TForm) und dann gleich wieder beende (Button Programm-Ende)
läuft alles ohne Probleme.
Wenn ich nun das Programm starte (TForm) und dann mit Button "Erfassen Info und Bild" zum TFrame
gehe
und in TFrame gleich wieder mit Button "zurück zum Verwalten Songs" zu TForm zurück gehe
und dann in TForm den Button "Programm-Ende" drücke
bekomme ich die Fehlermeldung (siehe Anhang oldiesfehler).
Das ganze passiert in der Procedure "TForm1.FormClose" auf dem Befehl Info.Free.

Keine Ahnung warum. Weiss da Jemand mehr?

Danke und Gruß
Jürgen

[Zvoni]

FormActivate zündet jedesmal, wenn deine Form den Fokus zurückerhält.
Also auch wenn du z.B. den Windows-Explorer startest, um was nach zuschauen, und du dann in der Taskbar wieder auf dein Programm zurückkehrst

Heisst: Du versuchst "Info:=TStringList.Create" auszuführen, obwohl "Info" bereits "created" ist
Verschieb den Code mit "Info:=TStringList.Create" nach FormCreate.

Eine Alternative wäre

Code: Alles auswählen

//In FormActivate
If Not Assigned(Info) Then Info:=TstringList.Create;

was aber meiner Meinung nach Overkill ist.

Faustregel:
Wenn eine Variable diesselbe Lebenszeit hat wie deine Form (du nennst die Variable "Global") hat, dann erzeugst du diese Variable in einem Ereignis, was dann auch tatsächlich nur einmal ausgeführt wird.
In diesem Fall: FormCreate

[theo]

@juelin
Du benutzt die falschen Events.
OnCreate und OnDestroy (von TForm) wäre das zusammengehörige und richtige Paar.

[fliegermichl]

FormActivate zündet jedesmal, wenn deine Form den Fokus zurückerhält.
...

Wobei das zwar einen Memoryleak erzeugen würde aber keine Access Violation.
Meine Vermutung ist eher, dass Info bereits zuvor freigegeben wurde und nicht auf nil gesetzt.

[juelin]

Hi,
natürlich habe ich Vorkehrung getrofen, das der Befehl "Info:=TStringList.Create"
in der Procedure TForm1.FormActivate nur einmal ausgeführt wird.

Aber ich habe fest gestellt, das wenn ich nach der Rückhehr aus TFrame
den Befehl "Info:=TStringList.Create" nochmal absetzte, die Fehlermeldung
ACCESS VIOLATION nicht mehr kommt.

Gruß Jürgen

[theo]

natürlich habe ich Vorkehrung getrofen, das der Befehl "Info:=TStringList.Create"
in der Procedure TForm1.FormActivate nur einmal ausgeführt wird.

Warum nimmst du nicht einfach die "richtigen" Events OnCreate und OnDestroy des Formulars?
Ich sehe bei einer Stringlist keinen Grund für etwas anderes.

[Zvoni]

FormActivate zündet jedesmal, wenn deine Form den Fokus zurückerhält.
...

Wobei das zwar einen Memoryleak erzeugen würde aber keine Access Violation.
Meine Vermutung ist eher, dass Info bereits zuvor freigegeben wurde und nicht auf nil gesetzt.

Stimmt.
FormClose hat ja bekanntlich "CloseAction", wo man das Schliessen eines Fensters abbrechen kann.
Wenn da Info freigegeben wird, knallts natürlich

Jepp. "Info.Free;" in FormDestroy und gut ist