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 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 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 von Luckie:

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...