TOpenDialog ändert das Basisverzeichnis

[oXmoX]

Hallo,

Wenn ich fogenden Code ausführe:

Code:

Assert(FileExists('test\test.txt'));
OpenDialog.Execute;
Assert(FileExists('test\test.txt));

...dann schlägt die zweite Assertion nach der Ausführung des TOpenDialogs fehl (die erste ist erfolgreich, da die Datei tatsächlich existiert). D.h. das Basisverzeichnis der Anwendung hat sich geändert. Wie setze ich es wieder zurück.

[DGL-luke]

da du dich auf das abreitsverzeichnis eh nie verlassen kannst, solltest du immer mit paramstr(0) arbeiten, wenn du in dem ordner bleiben willst, in dem auch deine Echse liegt.

Delphi-Quellcode:

verz:=extractfilepath(paramstr(0));

[Robert Marquardt]

Stell bei den Options des TOpenDialog ofNoChangeDir auf True.
Der Rat von DGL-luke ist aber besser.

[oXmoX]

Gut! Funktioniert! Vielen Dank!