[ yokid @ 29.06.2006. 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.
[ ivanho @ 29.06.2006. 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);
[ IvanBeograd @ 29.06.2006. 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
[ savkic @ 29.06.2006. 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.
[ yokid @ 29.06.2006. 22:00 ] @
Hvala svima koji su odgovorili.
Koristicu kod koji je napisao ivanho jer to je to sta sam trazio.