Wyodrębnianie nazwy folderu

Odpowiedz Nowy wątek
2007-01-09 16:57
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ę :-)

Pozostało 580 znaków

2007-01-09 17:21
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.

Pozostało 580 znaków

2007-01-09 18:06
0
ExtractFileName('C:\Windows\system32')

- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2007-01-09 19:08
0

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

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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