» Poradna » Programy

Cesta k souboru Delphi

 |   | 

Potreboval bych ukladat soubory do podadresare, ktery je vzdy ve stejnem adresari jako exe soubor aplikace. Neznam zadnou funkci na vraceni cesty k souboru aplikace bez jmena souboru aplikace. Znam jen Application.ExeName. Nic lepsiho me nenapadlo, nez vytvorit funkci, ktera jmeno souboru odrizne:function OdrizniJmenoSouboru(cesta:TFileName):String;var i:integer;begin i:=length(cesta); While cesta[i]<>('\') do begin cesta[i]:=' '; Dec(i); end; Trim(cesta); result:=cesta;end;Syntaxe je podle kompilatoru spravne, ale kdyz si necham string zpracovany touto funkci vypsat, tak zjistuju, ze je zde nejaka zrada s funkci trim, ktera mi proste za nic nechce oddelat ty mezery, ktere jsem tam vytvoril cyklem while. Nevim jestli je tento zpusob optimalni, a zrejme to jde udelat lepe. Prosim pokud vite jak jeddnoduseji, poradte. Zaroven prosim i o vysvetleni nefunkcnosti one funkce trim... Co je spatne? Dik.

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

Proc tak slozite? Kdyz potrebujes ukladat soubory do stejne slozky jako v ktere je exac tak proste nezadavej cestu ve funkci FileOpen(nebo AssignFile), ale primo napis nazev souboru.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

To nepotrebuju. Chci ukladat soubory do podslozky v adresari s exacem.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Cesta := ExtractFilePath(Application.ExeName) = 'Podadresar\';Ale uvedom si, ze tohle na Viste uz delat nemuzes. Program nema pravo zapisovat do adresare Program Files, protoze i kdyz jsi administrator, program bezi s pravy USER. Musel bys upravit spousteni programu.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Dekuji za rychlou odpoved a upozorneni. Mohl bych jeste poprosit o vysvetleni toho triku s funkci Trim?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Trim je funkce, která vrací ořezaný řatězec. Pokud napíšeš Trim(retezec), nic se nestane. Musel bys napsat: retezec := Trim(retezec)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Do prcic, no jo... to sem teda blb... Dik.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Cesta, Trim


Určitě si přečtěte

Starlink podle betatesterů: Rychlejší a levnější než satelitní internet v Česku

Starlink podle betatesterů: Rychlejší a levnější než satelitní internet v Česku

** Reddit se začíná plnit zkušenostmi se Starlinkem ** Při přímé viditelnosti dá i 120 Mb/s ** Klasický satelitní internet už teď dalece překonává

Jakub Čížek | 48

Jakub Čížek
StarlinkPoskytovatelé internetu
Google spouští vlastní VPN a konkurenci se to vůbec nelíbí
Lukáš Václavík
SoukromíVPNGoogle
CZ.NIC bezplatně naděluje USB/NFC klíče. Jak jej získat?
Lukáš Václavík
CZ.NICeGovernment
Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

Nejlepší notebooky do 10 000 korun: Co má ještě smysl kupovat. A co ne?

** Notebooky s cenou do deseti tisíc korun jsou plné kompromisů ** Existuje několik modelů dobře použitelných pro nenáročné použití ** Vhodnou alternativou jsou tablety nebo repasované počítače

David Polesný | 94

David Polesný
Jak vybrat notebookNotebooky
Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 4

redakce
Mapy GoogleStreet View
Velký den pro Apple: Uvedl tři nové Macy s vlastním procesorem M1
Lukáš Václavík
PočítačeApple

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5