Relativní cesty k souborum

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ěď.

Předmět	Autor	Datum
V Delphi si neumím ani uprdnout, ale přepokládám, že tak jako jinde existuje funkce, která vrací úpn… Flash_Gordon 15.03.2007 18:16	Flash_Gordon	15.03.2007 18:16
V delphi AssignFile pouziva tzv "current directory", mozes si ho skusit nacitat na zaciatku programu… MM.. 15.03.2007 18:16	MM..	15.03.2007 18:16
JmenoSouboru := ExtractFilePath(Application.ExeName) + 'Data\Data.txt'; Ale uvedom si, ze OpenDialo… poslední Jan Fiala 15.03.2007 18:52	Jan Fiala	15.03.2007 18:52

V Delphi si neumím ani uprdnout, ale přepokládám, že tak jako jinde existuje funkce, která vrací
úpnou cestu EXE (tam odkud byl program spuštěn).

V delphi AssignFile pouziva tzv "current directory", mozes si ho skusit nacitat na zaciatku programu, http://www.delphibasics.co.uk/RTL.asp?Name=GetCurre ntDir,
alebo zistit si hockedy cestu k tvojmu exe, ExtractFilePath(Paramstr(0)), a nastavit si current directory http://www.delphibasics.co.uk/RTL.asp?Name=SetCurre ntDir

JmenoSouboru := ExtractFilePath(Application.ExeName) + 'Data\Data.txt';

Ale uvedom si, ze OpenDialog.FileName vrací jmeno souboru vcetne cesty!

Zpět do poradny Odpovědět na původní otázku Nahoru