Verzeichnis ändert sich

[davar]

Hallo Leute,

ich habe nun folgendes Problem:

im Quellcode arbeite ich mit Paradoxtabellen, die ich nicht über einen Alias, sondern mit direkter Verzeichnisangabe anspreche. Und da sich die Tabellen in einem Unterverzeichnis befinden, gebe ich das Verzeichnis relativ an, also z.B. 'DBs\tabelle.db'.

Jetzt habe ich jedoch eine Imagelist hinzugefügt, die sich Images aus einem weiteren Unterverzeichnis, nämlich 'images' holt.

Und jetzt geht es nicht mehr.

Delphi sucht die Tabellen jetzt nämlich in 'images\DBs\' und findet logischerweise nichts.

Kann man die Verzeichnisangabe irgendwie wieder "zurücksetzen"?

Ich habe mir ja überlegt, die Pfadangaben mit "ExtractFilePath(Application.ExeName)" + 'DBs\..' " anzugeben, aber dann habe ich wiederum ein Problem mit den Querys, weil ich nicht weiss, wie ich es dort hinkriegen kann.
Da gibt es nämlich so etwas wie
DBs.QHTrHin.SQL.add('SELECT * FROM DBs\Tabelle WHERE Kunde = :kunde'); Kann mir jemand einen Rat geben?

[Luckie]

Und genau das ist der Grund, warum man nie mit relativen Pfaden arbeiten soll, sondern nur mit absoluten. Mit ParamStr(0) bekommst du den Pfad deiner Anwendung samt Namen und mit ExtractFilepath extrahierst du nur den Pfad.

[Matze]

Hallo

Zitat von davar:

Ich habe mir ja überlegt, die Pfadangaben mit "ExtractFilePath(Application.ExeName)" + 'DBs\..' " anzugeben, aber dann habe ich wiederum ein Problem mit den Querys, weil ich nicht weiss, wie ich es dort hinkriegen kann.

Über die Suche (Bsp: letzten Ordner) wärst du auf folgenden Code von marabu gestoßen:

Delphi-Quellcode:

function Folder(fileName: string): string;
begin
  Delete(fileName, 1, Length(ExtractFileDrive(fileName)));
  SetLength(fileName, Length(fileName) - Succ(Length(ExtractFileName(fileName))));
  Result := ExtractFileName(fileName);
end;

Diese Funktion gibt dir den Namen des "untersten" Ordners zurück.

[Luckie]

Ups, man sollte die Beiträge auch bis zu Ende lesen.

[davar]

Zitat von Matze:

Über die Suche (Bsp: letzten Ordner) wärst du auf folgenden Code von marabu gestoßen:

Delphi-Quellcode:

function Folder(fileName: string): string;
begin
  Delete(fileName, 1, Length(ExtractFileDrive(fileName)));
  SetLength(fileName, Length(fileName) - Succ(Length(ExtractFileName(fileName))));
  Result := ExtractFileName(fileName);
end;

Diese Funktion gibt dir den Namen des "untersten" Ordners zurück.

Aber hilft mir das denn in dem Fall weiter?

Dann habe ich ja den Namen des Ordners "images", aber da bin ich ja schon. Ich möchte ja da wieder raus.. Wenn ich Delphi aufrufe, bin ich ja im Applikationsverzeichnis und kann von dort aus ins Unterverzeichnis "DBs" zugreifen. Aber nachdem die Imagelist auf das Unterverzeichnis "images" zugreift, bleibt Delphi auch dort und kennt logischerweise das Unterverzeichnis "DBs" nicht, weil es dort auch keins gibt. Also müsste die Applikation wieder aus diesem Verzeichnis "images" eins höher.

Kann ich denn irgendwie die Query-Abfrage so modifizieren, dass ich da das Pfad irgendwie "zwischenschalten" kann? Dann hätte ich auch das Problem mit den relativen Pfadangaben nicht.

MfG

davar

[Matze]

Übergib der Funktion doch einfach das Anwendungsverzeichnis mit angehängten DB-Ordner.