2 StringListen try finally richtig anwenden

[TRomano]

Delphi-Quellcode:

var
  SL1, SL2: TStringList;
begin
  SL1 := TStringList.Create;
  SL2 := TStringList.Create;
  try
    // tue irgendetwas
   finally
    FreeAndNil(SL1);
    FreeAndNil(SL2);
  end;

Wohl dann eher so (Erzeugung der Klassen außerhalb von try ... finally ... end). Über FreeAndNil() wollen wir hier nicht diskutieren ...

[Der schöne Günther]

Zitat von TRomano:

(...)

Das ist zwar schon ziemlich theoretisch (was soll bei einer TStringList schon schief gehen?), aber wenn der Konstruktor von SL2 fehlschlägt bleibt SL1 ewig im Speicher...

[Neutral General]

Also hiermit kannst du nix falsch machen, aber auch ich mache das nicht immer

Delphi-Quellcode:

var
  SL1, SL2: TStringList;
begin
  SL1 := TStringList.Create;
  try
    SL2 := TStringList.Create;
    try
      // Code
    finally
      FreeAndNil(SL2);
    end;
  finally
    FreeAndNil(SL1);
  end;
end;

[TRomano]

Bei Mehrfach-Erzeugungen hast Du natürlich Recht ... man kann es noch weiter "Theorisieren" und das Ganze noch in ein try ... except ... end einbetten.
Und bei einfachen Klassen wie TStringList läuft sicherlich nichts schief.