Relativní cesty k souborům – Pascal – Fórum – Programujte.com

Zdravim, potřebuju pomoci. Právě dokončuji individuální praktickou maturitu a narazil jsem na jeden problém.
Používám Borland Delphi 7 , na začátku programu načítám externí soubor přes OpenDialog->AssignFile (Soubor,OpenDialog1.FileName); Později (už v jiném unitu) používám relativní cestu -> AssignFile (Soubor,'data/data.txt'); tady je právě ten problém. Tato relativní cesta se nepočítá od spuštěného souboru exe, ale od té cesty, ze které jsem načítal předtím ten soubor. V čem je problém??? Určitě by mi pomohla funkce na vrácení cesty exe souboru.... Diky za odpověď.

Funkce ParamStr(0):string ti vrátí celý název EXE i s cestou.
Z takto získaného názvu exáče potom vyseparuješ cestu. V Turbo pascalu pomocí procedury FSplit. V Delphi to možná jde i elegantněji.

Nevím, jak OpenDialog přesně funguje (nejsem delphista), ale podle toho, jak to popisuješ, nejspíš mění aktuální adresář (v DOSu příkaz cd, v TP procedura Chdir apod.) a pak ho po sobě nevrátí do původního stavu (do adresáře, ve kterém je program). Po skončení dialogu bude nastaven ten adresář, do jakého ses proklikal, takže se zpátky musíš vrátit ručně.

Ale to je přeci jednoduché :)
AssignFile(Soubor,ExtractFilePath(application.exename)+'data.txt');

přičemž application.exename vrátí cestu k souboru např("C:/program/program.exe"). Jestli by jsi měl další problémy tak icq: 205 205 295