Zitat von
hoika:
*schlag* *stech* *würg*
Aua, tut schon weh, aber mehr meine eigene Do..heit.
Zitat von
hoika:
Eine "Datenbank" ist dort ein Verzeicbnis.
Eine "Tabelle" halt eine
DB-Datei in diesem Verzeichnis
(incl. der Zusatzdazteien, Indizes usw.).
Sorry, ist dann schon klar. Aber dann müsste es mit dem FileName ja eigendlich funktionieren...
Code:
ExtractFileName := Tabellen-Name
ExtractFilePath := "DataBase"-Name
Habe das gerade mal ausprobiert. So müsste es funktionieren
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Tabellenname : String;
Datenbankverzeichnis : String;
begin
if OpenDialog1.Execute then
begin
if OpenDialog1.Filename = '' then
Tabellenname := 'gesamt3'
else
begin
Datenbankverzeichnis := ExtractFilePath(OpenDialog1.FileName);
Tabellenname := ExtractFileName(OpenDialog1.FileName);
end;
end;
ShowMessage(Tabellenname);
ShowMessage(Datenbankverzeichnis);
end;
Gruß Jens