Wyodrębnianie nazwy folderu

Odpowiedz Nowy wątek
2007-01-09 16:57

Rejestracja: 14 lat temu

Ostatnio: 1 miesiąc temu

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

Rejestracja: 14 lat temu

Ostatnio: 11 lat temu

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

Rejestracja: 16 lat temu

Ostatnio: 7 lat temu

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

Rejestracja: 14 lat temu

Ostatnio: 1 miesiąc temu

0

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

Pozostało 580 znaków

Odpowiedz

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