TQuery variabel

[Jens Hartmann]

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