Ich habe das jetzt so gemacht:
Delphi-Quellcode:
procedure Tfrm_main.FormCreate(Sender: TObject);
var verz:
string;
begin
verz := ExtractFilePath(ParamStr(0))+'
/db/';
TdbTable1.Active := False;
try
TdbTable1.DatabaseName := verz;
TdbTable1.TableName := '
db.tdbd';
TdbTable1.Active := True;
except
MessageBeep(0);
ShowMessage('
Die Tabelle db.tdbd befindet' + #10#13 +'
sich nicht im angegebenen Verzeichnis!')
end
end;
aber bekomme eine Fehlermeldung:
Im Projekt ist
Exception der Klasse ETdbEngine aufgetreten. Meldung:'Code = 134, Description ='. Proyess wurde angehalten.
was mach ich da falsch? *grübel