Ang. strings

st:String;
begin
st := 'c:\test\test1\test2';
st := copy(st, pos('\', st)+1, length(st));
st := copy(st, pos('\', st)+1, length(st));
showmessage(st);

den er ikke testet

nej hov...
Const
folder = 'c:\test\test1\test2';
st:String;
begin
st := copy(folder, 1, lastdelimiter(folder, '\')-1);
st := copy(st, 1, lastdelimiter(st, '\')-1);
st := copy(folder, length(st), length(folder));
showmessage(st);

sådan

function prefixstrip(s : string) : string;

var
  temp : string;
  i, count : integer;

begin
  temp := '';
  count := 0;
  for i := 1 to length(s) do begin
      if count >= 2 then temp := temp + s[i];
      if s[i] = '\' then count := count + 1;
  end;
  prefixstrip := temp;
end;

ok ikke hel på toppen idag....

procedure TForm1.Button1Click(Sender: TObject);
Const
folder = 'c:\test\test1\test2';
var
st:String;
begin
st := copy(folder, 1, lastdelimiter('\', folder)-1);
showmessage(st);
st := copy(st, 1, lastdelimiter('\', st));
showmessage(st);
st := copy(folder, length(st)+1, length(folder));
showmessage(st);
end;

Det er fint nok men den skal "gå baglæns" f.eks ved: "c:\test\test1\test2" og ved "c:\test\test1\test2\test3\test4".. Skal den kun vise de to sidste biblioteker....

okay det gør den her function jo også:

function ToTilbage(folder:string):string;
var
st:String;
begin
st := copy(folder, 1, lastdelimiter('\', folder)-1);
st := copy(st, 1, lastdelimiter('\', st));
st := copy(folder, length(st)+1, length(folder));
result := st;
end;

procedure TForm1.Button1Click(Sender: TObject);
Const
mappe = 'c:\test\test1\test2\test3\test4';
begin
showmessage(ToTilbage(mappe));
end;

function prefixstrip(s : string) : string;

var
  temp : string;
  i, count : integer;

begin
  temp := '';
  count := 0;
  for i := length(s) downto 1 do begin
      if s[i] = '\' then count := count + 1;
      if count < 2 then temp := s[i] + temp;
  end;
  prefixstrip := temp;
end;

Tusind tak Dkn.... Det virkede sku , jeg skulle have spurgt noget før :)

--- Og til dig arne_v tak for svaret men jeg brugte Dkn's svar men du får lige en håndfuld....

Helt fint.

DKN's løsning er betydeligt hurtigere end min.

Men pas på hvis der ikke er 2 back-slashes.

selvtak jeg fik skam spammet lidt meget... :)

hehe

okay sidste post fra min side....
Har tilføjet så den er ligeglad med en ekstra backslash:

function ToTilbage(folder: string): string;
var
  st: string;
begin
  if Copy(folder, Length(folder), 1) = '\' then
    folder := Copy(folder, 1, Length(folder) - 1);
  st := copy(folder, 1, lastdelimiter('\', folder) - 1);
  st := copy(st, 1, lastdelimiter('\', st));
  st := copy(folder, length(st) + 1, length(folder));
  result := st;
end;

Lige en sidste ting: Hvad hvis man skal fjerne at efter det sidste punltum?

st:String;
begin
st := 'lalala.lalaal';
st := copy(st, 1, pos('.', st)-1);

Tak