Wyodrębnianie nazwy folderu

0

Witam!

Mam następujący problem, chciałbym, aby ze stringa np. 'C:\Windows\system32', było wyodrębione ostatnie słowo, w tym przypadku 'system32',

jak tego dokonać?

otóż należało by napisać taką funkcję która usuwała by wszystkie znaki do ostatniego slesza razem z nim.

Chodzi mi tutaj o nazwę katalogu, gdyby ktoś wiedział jak to zrobić, lub miał podobny problem to proszę o pomoc.

Za ewentualne odpowiedzi serdecznie dziękuję :-)

0
Function nazwaPliku(const sciezka : String) : String;
//made by Korpirkor
var
   x : integer;
begin
   x := LastDelimiter('/', sciezka);
   if x < LastDelimiter('\', sciezka) then
      result := extractfilename(sciezka)
   else
      Result := Copy(sciezka, x + 1, Length(sciezka) - x);
end;

Funkcja działa zarówno na ścieżki Windowswoskie jak i Unixowe.

0
ExtractFileName('C:\Windows\system32')
0

;] hmm.., no tak mogłem popróbować, rozwiązanie było bardzo proste, dzięki :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0