Exception bei OpenDialog

[Thomm]

Beim OpenDialog1 tritt bei mir immer Exception auf,
wenn man auf "Abbrechen" klickt

Delphi-Quellcode:

procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
OpenDialog1.Execute;
try
clientdataset1.LoadFromFile(OpenDialog1.FileName);
except
Application.MessageBox('Datei kann nicht geöffnet werden','Fehler',16);
exit;
end;
end;

Weiß jemand wie das mit dem Button "Abbrechen" funktioniert ?

[Neutral General]

Hi,

Delphi-Quellcode:

if Opendialog1.Execute then 
  // Es wurde OK gedrückt

Gruß
Neutral General

[omata]

Delphi-Quellcode:

procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    try
      clientdataset1.LoadFromFile(OpenDialog1.FileName);
    except
      Application.MessageBox('Datei kann nicht geöffnet werden', 'Fehler', 16);
    end; 
  end;
end;

[Thomm]

Danke, für die Hilfe :-D