Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
14.08.2001. Operacije sa stringovima ?
27.01.2002. Potrebna zbirka
11.08.2004. potrebna imaging kontrola
31.08.2004. Potrebna usluga u 3D max-u
17.10.2004. Gentoo - da li je potrebna boot particija?
20.11.2005. Orion 287MF-TV715 potrebna šema
22.11.2007. potrebna shema pojačala
22.05.2006. Principi Programiranja
20.05.2006. P.Programiranja-Zadatci

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna pomoc sa stringovima.

[es] :: Pascal / Delphi / Kylix :: Potrebna pomoc sa stringovima.

[ Pregleda: 2031 | Odgovora: 4 ] > FB > Twit

Autor

yokid

Član broj: 38351
Poruke: 36
*.beobug.com.

Profil

Potrebna pomoc sa stringovima.

^{29.06.2006. u 18:29 - pre 216 meseci}

Imam mali problem.
String sardzi putanju direktorijuma.
Primer:

S:='c:\dir1\somedir2\dir3\newdir4\';

Potrebno mi je da sa svakim pritiskom na dugme, da se putanja smanjuje za po jedan direktorijum.
Ako uzmemo gore dati primer, onda, kad pritisnem dugme, da string bude:

S:='c:\dir1\somedir2\dir3\';

pa:

S:='c:\dir1\somedir2\;

itd.

Unapred hvala za svaku pomoc.

Odgovor na temu

ivanho
slobodni umetnik
Beograd

Član broj: 28465
Poruke: 73
*.maksnet.net.

Profil

Re: Potrebna pomoc sa stringovima.

^{29.06.2006. u 18:50 - pre 216 meseci}

Na primer ovako:

Code:

function ParentDir(strDir: string): string;
  var
    intBrojac: integer;
    strTemp: string;
  begin

    for intBrojac := Length(strDir)-1 downto 0 do
      begin
        if strDir[intBrojac] = '\' then
          break;
      end;

    strTemp := strDir;
    if (intBrojac > 0) and (intBrojac < Length(strDir)) then
      delete(strTemp, intBrojac+1, Length(strDir));
    result := strTemp;
  end;

ovu funkciju sad mozes da pozivas kako zelis, u tvom slucaju

Code:

S := ParentDir(S);

Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.dialup.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Potrebna pomoc sa stringovima.

^{29.06.2006. u 18:52 - pre 216 meseci}

Napisi neku f-ju koja ce ti vrati index poslednje i predposlednje kose crte,pa onda iskoristi neku od gotovih f-ja,pogledaj u helpu string handling routines.
Pozzz

SERVIA NOSTRUM REGNUM!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Potrebna pomoc sa stringovima.

^{29.06.2006. u 20:05 - pre 216 meseci}

> S:='c:\dir1\somedir2\dir3\newdir4\';

> Potrebno mi je da sa svakim pritiskom na dugme, da se putanja smanjuje za po jedan direktorijum.
> Ako uzmemo gore dati primer, onda, kad pritisnem dugme, da string bude:

Probaj ExtractFileDir, možeš kombinovati sa ExcludeTrailingBackslash ili napravi sam svoju koristeći LastDelimiter.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

yokid

Član broj: 38351
Poruke: 36
*.beobug.com.

Profil

Re: Potrebna pomoc sa stringovima.

^{29.06.2006. u 22:00 - pre 216 meseci}

Hvala svima koji su odgovorili.
Koristicu kod koji je napisao ivanho jer to je to sta sam trazio.

Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Potrebna pomoc sa stringovima.

[ Pregleda: 2031 | Odgovora: 4 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
14.08.2001. Operacije sa stringovima ?
27.01.2002. Potrebna zbirka
11.08.2004. potrebna imaging kontrola
31.08.2004. Potrebna usluga u 3D max-u
17.10.2004. Gentoo - da li je potrebna boot particija?
20.11.2005. Orion 287MF-TV715 potrebna šema
22.11.2007. potrebna shema pojačala
22.05.2006. Principi Programiranja
20.05.2006. P.Programiranja-Zadatci

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.