Thema: Delphi Exception bei OpenDialog

Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Exception bei OpenDialog

  Alt 30. Aug 2008, 23:11
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;
  Mit Zitat antworten Zitat