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 :D)

[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ß

Delphi-Quellcode:

Files.Free;

Files nicht auf nil setzt.

Du könntest dann stattdessen

Delphi-Quellcode:

FreeAndNil(Files)

verwenden.

[xZise]

Zitat:

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:

Zitat von mkinzler

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

Methode : Execute
Klasse : frmOp

Zitat:

Zitat von katjah

Läuft Dein Programm da mehrfach durch und es knallt erst beim 2. Durchlauf ?
Das liegt dann vermutlich daran, daß

Delphi-Quellcode:

Files.Free;

Files nicht auf nil setzt.

Du könntest dann stattdessen

Delphi-Quellcode:

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:

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:

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.