try,except,finally

[Klaus D.]

Ich schreibe in eine INI-Datei auf folgende weise.

Delphi-Quellcode:

try
 frmMain.V_Ini:=TiniFile.Create(frmMain.V_Pfad+'\Einstellungen.ini');
 frmMain.V_Ini.WriteInteger('Suchoptionen','ItemIndex',frmEinstellungen.Suchoptionen.ItemIndex);

 frmMain.V_Ini.Free;
 btnOK.Enabled:=false;
except begin
 ShowMessage('Es ist ein Fehler aufgetreten'+#13+'Starten sie das Programm neu und versuchen sie es erneut');
 frmMain.V_Ini.Free;
 btnOK.Enabled:=false;

end;
 end;
  end;

aber ich muß doch die INI auf jeden fall wieder freigeben. Ist es da besser noch mit finally zu arbeiten?
MfG Klaus

[edit=r_kerber]Delphi-Tags eingefügt Mfg, r_kerber[/edit]

[Luckie]

Puh. Schon mal was von Quellcodeformatierung gehört? ;) Also wann wie einrücken und neue Zeile usw.?

Ressourcenschutzblöcke werden generell mit try-finally gemacht.

Delphi-Quellcode:

sl := xcy.Create;
try
  // mach was mit sl
finally
  FreeAndNil(sl);
end;

[Christian Seehase]

Moin Klaus,

die Struktur sollte im Allgemeinen so aussehen:

Delphi-Quellcode:

Resource belegen (in Deinem Falle Objekt erzeugen)
try
  mit der Resource arbeiten
finally
  Resource freigeben
end;

Erst nachdem eine Resource belegt ist wird try verwendet, da vorher ja noch nichts passiert ist.
In Deinem speziellen Fall kannst Du auf den try/except Block verzichten, da WriteInteger keine Exception auslöst.

(BTW: Bei der Meldung die Du generierst, wäre eine vom System vielleicht aussagekräftiger ;-) )

[dizzy]

Kann man nicht auch alle 3 benutzen? Also:

Delphi-Quellcode:

aha := TStringList.Create;
try
  aha.Add('soso');
except
  ShowMessage('ging nicht!');
finally
  aha.Free;
end;

[Basilikum]

Zitat:

Zitat von dizzy

Kann man nicht auch alle 3 benutzen? Also:

neee.... entweder except oder finally.... beides zusammen macht eh keinen Sinn...

[Robert_G]

Und im EXCEPT Block werden Objekte IMHO nicht wirklich freigegeben.

[Leuselator]

@dizzy: Wenn Du Gürtel UND Hosenträger benutzen möchtest, kannst Du try/exept bzw.try/finally schachteln:

Code:

[b]begin[/b]
  Objektvariable [b]:=[/b] TObject.Create;
[color=red]  [b]try[/b] [/color]
[color=seagreen]    [b]try[/b] 
      ObjectVariable.DoSomething; 
    [b]except[/b]
      MessageDlg([/color][color=darkblue]'Fehlermeldung'[/color][color=seagreen], mtError, [mbOK], 0);
    [b]end[/b]; [/color]
[color=red]  [b]finally[/b] 
    FreeAndNil(Objektvariable);
  [b]end[/b];[/color]
[b]end[/b];

Grün: innerer Try-/Except-Block (Gürtel)
Rot : äusserer Try-/Finally-Block (Hosenträger) :-)
Gruß

[Luckie]

Zitat:

Zitat von Robert_G

Und im EXCEPT Block werden Objekte IMHO nicht wirklich freigegeben.

Doch, aber nur wenn es vorher kracht und eine Exeception ausgelöst wird. ;)

[Synonym]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Robert_G

Und im EXCEPT Block werden Objekte IMHO nicht wirklich freigegeben.

Doch, aber nur wenn es vorher kracht und eine Exeception ausgelöst wird. ;)

Deswegen hat er ja auch wahrscheinlich "nicht wirklich" hingeschrieben!

synonym

[Pseudemys Nelsoni]

ausserdem brauchst du nach except/finally nicht extra ein "begin..end" für mehrere befehle...