Mal 'ne kleine Fehlerprüfung einbauen?
Delphi-Quellcode:
Var
sDBF : String;
begin
sDBF := 'D:\Dat\anlm.dbf';
if not FileExists(UniConnection.Database) then begin
MessageDlg(Fortmat('Die Datei %s existiert nicht.',[sDBF]),mtError,[mbOk],0);
// Routinen sinnvoll beenden oder
exit;
end;
UniConnection := TUniconnection.Create(nil);
UniConnection.ProviderName := 'DBF';
UniConnection.SpecificOptions.Add('Direct=True');
UniConnection.Database := sDBF;
UniConnection.Connect;
// ...