Wird Variable.Free ausgeführt?

[Pseudemys Nelsoni]

Hallo, mal ne frage,

sagen wir mal mein Code sieht so aus:

Delphi-Quellcode:

procedure2;
begin
  // hier tritt ein fehler auf
end;

procedure1;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  procedure2;
  sl.free;
end;

wird das sl.free noch ausgeführt wenn in procedure2 ein fehler auftrat?

[MikeS]

ich denke nicht!

Aber dazu gibt es doch try finally Blöcke!

[Pseudemys Nelsoni]

danke für den tip ich hätte aber gern ne ja/nein antwort

btw, ich kenne try finally schon, aber würde trotzdem gern wissen wies bei meinem beispiel oben aussehen würde, also obs frei werden würde oder nicht

mfg

[sakura]

Zitat von Pseudemys Nelsoni:

ich hätte aber gern ne ja/nein antwort

Die kann Dir keiner geben. (falls der Fehler fehlerhafterweise doch nicht auftritt)

Wenn in procedure2 eine Exception auftritt, dann NEIN, wenn beim Erstellen der StringListe eine Exception auftritt (z.B. Speicher voll) dann NEIN, wenn keine Expceptions auftreten (weder beim Create noch in procedure2) dann JA.

......

P.S.: Sollte die Excpetion in Procedure2 intern durch einen try...except...end Block gefangen werden, dann wiederum JA.

[Pseudemys Nelsoni]

das wollte ich wissen, DANKE

[Jens Schumann]

Hallo,
an dieser Stelle ein kleiner Quiz:

Delphi-Quellcode:

var
  SL : TStringList;
begin
  SL:=TStringList.Create;
  Try
    If MyFunction then 
      Exit;
    ...
  Finally
    SL.Free;
    end;
end;

Wird SL.Free ausgeführt, wenn MyFunction True zurückgibt ?

[sakura]

Zitat von Jens Schumann:

Wird SL.Free ausgeführt, wenn MyFunction True zurückgibt ?

Ja

......

[Jens Schumann]

Hallo sakura,
damit liegst Du vollkommen richtig.

[sakura]

Und was passiert hier

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
label
  Hmmmm;
begin
  try
    goto Hmmmm;
  finally
    ShowMessage('2b | !2b');
  end;
Hmmmm:
end;

......

P.S.: Sorry Pseudo..., aber so lernst Du ja auch was

[Tyrael Y.]

@Sakura ..ist doch klar was da passiert..

du kriegst paar hinter die Löffeln, weil du GOTO benutzt hast und das nicht geschickter geschrieben hast