ParamStr komplette Verzeichnisse auswählen

[Sir Rufo]

ts, ts, ts, ...

Delphi-Quellcode:

procedure dofoo;
var
  foo: TFoo;
begin
  foo := TFoo.Create;
  try

    // work with foo

  finally
    foo.Free;
  end;
end;

// aber

procedure dofoobar;
var
  foo: TFoo;
  bar: TBar;
begin
  // lokale Variablen sind NICHT initialisiert, 
  // also machen wir das mal
  foo := nil;
  bar := nil;
  try
    foo := TFoo.Create;
    bar := TBar.Create;
    
    // work with foo and bar

  finally
    foo.Free;
    bar.Free;
  end;
end;

[GroZ]

Was ist ein TFoo? Konnte dazu in der OH nix finden..

[p80286]

Zitat von GroZ:

Was ist ein TFoo? Konnte dazu in der OH nix finden..

das ist nur ein Platzhalter für einen nicht konkreten Typ so wie "TIrgendwas"

@sirRufo Was will uns der Dichter damit sagen?

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

@sirRufo Was will uns der Dichter damit sagen?

Das war eine Antwort auf die Beiträge:

Zitat von mm1256:

Zu deinem Code. Schau dir auch nochmal den Try..Finally-Block an. Wenn du zwei constructoren aufrufst, dann solltest du diese besser innerhalb des try aufrufen.

Delphi-Quellcode:

try
  frReport := TfrReport.Create(NIL);
  PDFExport := TPsfrPDFExport.Create(NIL);
finylly
  PDFExport.Free;
  frReport.Free;
end;

Hintergrund: Wenn einer der beiden constructoren fehlschlägt, wird in jedem Fall mit Free wieder richtig aufgeräumt, weil Free auf "nil" prüft, und somit auch keine Exception wirft, wenn eine der beiden Instanzen nil ist.

und

Zitat von Der schöne Günther:

Zitat von mm1256:

Hintergrund: Wenn einer der beiden constructoren fehlschlägt, wird in jedem Fall mit Free wieder richtig aufgeräumt, weil Free auf "nil" prüft, und somit auch keine Exception wirft, wenn eine der beiden Instanzen nil ist.

Die Absicht ist richtig (Konstruktor vor dem try..finally-Block), die Begründung aber nicht

Wenn im Konstruktor eine Exception auftritt
- Wird der Destruktor ausgeführt
- Und die Exception anschließend weiter geworfen
- In den try..finally-Block kommt man somit erst gar nicht.


(Deshalb ist Free() sogar eigentlich unnötig da im try..finally-Block die Referenz niemals nil sein kann, ein Destroy() reicht völlig)

Denn zum echten Schutz vor einem MemLeak müsste es so lauten

Delphi-Quellcode:

frReport := nil;
PDFExport := nil;
try
  frReport := TfrReport.Create(NIL);
  PDFExport := TPsfrPDFExport.Create(NIL);
finally
  PDFExport.Free;
  frReport.Free;
end;

[mm1256]

Ja genau, um diese Vereinfachung geht es.

@Sir Rufo, ich sehe wir sind uns einig was den try..finally anbelangt. Wo ich mir nicht ganz sicher bin, warum

Delphi-Quellcode:

frReport := nil;
PDFExport := nil;

Vorsichtsmaßnahme, oder Pflichtübung. Wenn Pflichtübung, warum? Meine Ansicht bzw. Wissensstand: Es sind lokale Instanzen und darum müsste doch die nil-Zuweisung eigentlich nicht erforderlich sein. Anders sieht es aus, wenn es globale oder Formvariablen sind, weil dann der Zeiger auf irgendwas zeigen kann, was vorher schon mal in Benutzung war und noch nicht überschrieben ist.

[Sir Rufo]

Zitat von mm1256:

@Sir Rufo, ich sehe wir sind uns einig was den try..finally anbelangt. Wo ich mir nicht ganz sicher bin, warum

Delphi-Quellcode:

frReport := nil;
PDFExport := nil;

Vorsichtsmaßnahme, oder Pflichtübung. Wenn Pflichtübung, warum? Meine Ansicht bzw. Wissensstand: Es sind lokale Instanzen und darum müsste doch die nil-Zuweisung eigentlich nicht erforderlich sein. Anders sieht es aus, wenn es globale oder Formvariablen sind, weil dann der Zeiger auf irgendwas zeigen kann, was vorher schon mal in Benutzung war und noch nicht überschrieben ist.

Das liegt daran, dass lokale Variablen nicht automatisch initialisiert werden. Da kann sonst was drin stehen ...

Wenn ich also sicher gehen will, das dort der Wert xy drin steht, dann muss ich diesen Wert aktiv zuweisen.

[mm1256]

Zitat von Sir Rufo:

Das liegt daran, dass lokale Variablen nicht automatisch initialisiert werden. Da kann sonst was drin stehen ...

Wenn ich also sicher gehen will, das dort der Wert xy drin steht, dann muss ich diesen Wert aktiv zuweisen.

Danke, wieder was gelernt...und natürlich auch überprüft. Stimmt

[Olli73]

Zitat von p80286:

@sirRufo Was will uns der Dichter damit sagen?

Ich bin zwar nicht Sir Rufo, antworte aber trotzdem mal...

Es geht darum, ein

Delphi-Quellcode:

procedure dofoobar;
var
   foo: TFoo;
   bar: TBar;
begin
   foo := TFoo.Create;
   try
     bar := TBar.Create;
     try
      // work with foo and bar
     finally
       bar.Free;   
     end;
   finally
     foo.Free;
   end;
end;

zu vereinfachen (= weniger Einrückungen/Verschachtelungen).

Das Thema hatten wir schon mal.

Edit: Zu spät. (Aber kein blauer Balken?!)