Also wenn dan ist ja nur der code im OnCreate interessant:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var verz: String;
begin
verz := ExtractFilePath(ParamStr(0));
Table1.Active := False;
try
Table1.Databasename := verz;
Table1.TableName := 'jaab.db';
Table1.Active := True
except
MessageBeep(0);
ShowMessage('Die Tabelle "jaab.db" befindet' + #13#10 + ' sich nicht im aktuellen Verzeichnis!')
end;
Und wie gesagt, vorhin ging noch alles und im OnCreate hatte ich ja auch nichts geändert...
Gehen tut ja auch alles, das Programm wird gestartet und es funktioniert, nur eben die Fehlermeldung kommt als erstes...