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! :wink:

[Pseudemys Nelsoni]

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

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:

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.

...:cat:...

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 :mrgreen:

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

Zitat von Jens Schumann

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

Ja ;-)

...:cat:...

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

...:cat:...

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 :lol:

[APP]

Hallo Sakura, interessanter Test
aber :

Zitat:

The GOTO statement cannot jump into or out of an exception handling statement.

[sakura]

Zitat:

Zitat von APP

Hallo Sakura, interessanter Test
aber :

Schon klar ;-) Das würde Delphi nämlich nicht abfangen können :mrgreen:

...:cat:...

P.S.: Das mit den Löffeln habe ich überhört :evil:

[Pseudemys Nelsoni]

ich les gespannt zu^^

[APP]

Hallo Sakura,

Zitat:

Zitat von sakura

Schon klar ;-) Das würde Delphi nämlich nicht abfangen können :mrgreen:
...:cat:...

das habe ich mir fast gedacht, nachdem DU diese Testfrage gestellt hast :mrgreen:.



p.s. Ich finde diese "Online-Tests" sehr anregend und interessant.

[sakura]

Zitat:

Zitat von APP

das habe ich mir fast gedacht, nachdem DU diese Testfrage gestellt hast

Ich bin ehrlich. Sicher war ich mir auch nicht - aber ich habe es vorm Posten getestet ;-)

Okay, genug Geschwafel - es war interessant.

...:cat:...