Probleme mit TStrings/TStringlist beim Freigeben

[xZise]

Ich habe folgenden Code geschrieben:

Delphi-Quellcode:

ShowModal;
if Files <> nil then
  Files.Free;
Files := TStringList.Create;

Problem: Es kann sein (aus unerklärenlichen Gründen), dass er (die Form wird weiterhin angezeigt), dass er in das "if Files <> nil then" springt. Weiter nicht schlimm, aber dort knallst dann:

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project XXXXXXXX.exe raised exception class EAccessViolation with message 'Access violation at address 0044B150 in module 'XXXXXXXX.exe'. Read of address 00000004'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Ich weiß leider nicht, wo das Problem sein könnte...

(Files ist deklariert )

[Bernhard Geyer]

Verwende mal FastMM. Der sollte dir (bei aktiven Debug und TD32-Infos) anzeigen wenn das Objekt schon irgendwo anders freigegeben wurde.

[mkinzler]

Wo steht dieser Code? (Welche Methode, welcher Klasse)

[katjah]

Läuft Dein Programm da mehrfach durch und es knallt erst beim 2. Durchlauf ?
Das liegt dann vermutlich daran, daß
Files.Free; Files nicht auf nil setzt.

Du könntest dann stattdessen
FreeAndNil(Files) verwenden.

[xZise]

Zitat von Bernhard Geyer:

Verwende mal FastMM. Der sollte dir (bei aktiven Debug und TD32-Infos) anzeigen wenn das Objekt schon irgendwo anders freigegeben wurde.

Installiere ich morgen.

Zitat von mkinzler:

Wo steht dieser Code? (Welche Methode, welcher Klasse)

Methode : Execute
Klasse : frmOp

Zitat von katjah:

Läuft Dein Programm da mehrfach durch und es knallt erst beim 2. Durchlauf ?
Das liegt dann vermutlich daran, daß
Files.Free; Files nicht auf nil setzt.

Du könntest dann stattdessen
FreeAndNil(Files) verwenden.

Keine Änderung!

Kann es sein (rein theoretisch), dass während des ShowModals ein Fehler auftritt und er aber nur "if Files..." markiert?
Ich teste es mal

[katjah]

Ansonsten wäre etwas mehr Code nicht schlecht.

[3_of_8]

Free funktioniert auch bei nicht instantiierten Objekten. Der Grund liegt auf der Hand.

[Muetze1]

Zitat von 3_of_8:

Free funktioniert auch bei nicht instantiierten Objekten. Der Grund liegt auf der Hand.

Man sollte dazu aber erwähnen, dass Free nur dann ordentlich mit nicht-instanziierten Objekten funktioniert, wenn entweder eine gültige Instanzenadresse in der Variablen enthalten ist oder Nil. Bei allem anderen knallt es auch mit Free - ausser man hat ein wenig Glück und der Sprung in's Datennirvana beim Aufruf vom Destruktor landet irgendwo bei was kompatiblen...

[fwsp]

versteh ich es falsch oder könnte man nicht mit .Clear das Problem umgehen?

[Bernhard Geyer]

Zitat von fwsp:

versteh ich es falsch oder könnte man nicht mit .Clear das Problem umgehen?

Für diesen 3-Zeiler allein: Ja. Aber das Problem liegt doch woanders das Files eine ungültige Referenz darstellt. Und dann Knallt es auch bei Clear.