Objekte freigeben

[Muetze1]

... und die IF Abfrage ist dabei nur Zeitverschendung...

[mjustin]

Bessere Absicherung gegen Memory Leaks erhält man mit try .. finally Blöcken:

Delphi-Quellcode:

  Object1 := TMyFirstClass.Create;
  try
    // use Object1 
    ...
    Object2 := TMySecondClass.Create;
    try
      // use Object2 
      ...
      Object3 := TMyThirdClass.Create;
      try
        // use Object3 
        ...
      finally 
        FreeAndNil(Object3);
      end;
    finally
      FreeAndNil(Object2);
    end;
  finally
    FreeAndNil(Object1);
  end

[xZise]

Zitat:

Zitat von mjustin

Bessere Absicherung gegen Memory Leaks erhält man mit try .. finally Blöcken:[...]

Und jetzt zeig mir mal bitte, wie du du das im Finally Block packst.

Zu dem Parameterproblem könntest du zwei Wege verwenden. Entweder FParameter von TMyBox ist eine "lokale" Kopie, oder TMyBox interessiert sich nicht um den Parameter sondern hat nur ein Zeiger drauf. Das heißt nichts zu Anfang erstellen und am Ende freigeben. Aber dann natürlich beim jedem Zugriff zuerst testen, ob der Zeiger valid ist. Ich würde dabei ersteres bevorzugen, wenn das nicht ZU viele Daten sind.

MfG
xZise

[SteffenSchm]

Ich danke Euch allen (besonders shmia, sx2008 und xZise) für die nützlichen Hinweise.

Ich habe dabei einiges gelernt.

[mjustin]

Zitat:

Zitat von xZise

Und jetzt zeig mir mal bitte, wie du du das im Finally Block packst.

Das war eigentlich schon alles, was es zu zeigen gab. Mehr Magie ist dazu nicht erforderlich, und auch nicht mehr als drei finally ... oder was meintest Du mit 'du du das', was da noch gepackt werden soll ?

[Blup]

Damit "das" übersichtlich bleibt und nicht zu viele Blöcke entstehen, besser so:

Code:

Object1 := nil;
Object2 := nil;
Object3 := nil;
try
  Object1 := TMyFirstClass.Create; 
  // use Object1 
  ... 
  Object2 := TMySecondClass.Create; 
  // use Object2 
  ... 
  Object3 := TMyThirdClass.Create; 
  // use Object3 
  ... 
finally 
  FreeAndNil(Object3); 
  FreeAndNil(Object2); 
  FreeAndNil(Object1); 
end;

Bei der Freigabe von Objekten sollte eigentlich kein Fehler auftreten.