Thema: Delphi try,except,finally

Einzelnen Beitrag anzeigen

Klaus D.

Registriert seit: 27. Okt 2003
Ort: 03238 Finsterwalde
124 Beiträge
 
Delphi 6 Professional
 
#1

try,except,finally

  Alt 28. Feb 2004, 14:26
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]
  Mit Zitat antworten Zitat