Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna pomoc sa stringovima.

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

[ Pregleda: 655 | Odgovora: 4 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

yokid

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



Profil

icon Potrebna pomoc sa stringovima.29.06.2006. u 18:29
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.
29.06.2006. u 18:29 

ivanho
slobodni umetnik
Beograd

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



Profil

icon Re: Potrebna pomoc sa stringovima.29.06.2006. u 18:50
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);
29.06.2006. u 18:50 

IvanBeograd
Beograd

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

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


Profil

icon Re: Potrebna pomoc sa stringovima.29.06.2006. u 18:52
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!
29.06.2006. u 18:52 

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1226
*.adsl.sezampro.yu.



Profil

icon Re: Potrebna pomoc sa stringovima.29.06.2006. u 20:05
> 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.yu/~fangor...stions/smart-questions.sr.html
29.06.2006. u 20:05 

yokid

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



Profil

icon Re: Potrebna pomoc sa stringovima.29.06.2006. u 22:00
Hvala svima koji su odgovorili.
Koristicu kod koji je napisao ivanho jer to je to sta sam trazio.
29.06.2006. u 22:00 

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

[ Pregleda: 655 | Odgovora: 4 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.