Получить последний (правый) элемент пути

[Utkin]

Имеются строки вида:
а-->б-->в...-->я
Нужно получить я.
Я конечно могу идти циклом от конца строки и пытаться выделить первый встречный разделитель. Есть ли более элегантное решение? Дельфи XE.

[BDA]

function LastDelimiter ( const Delimiters, Source : string ) : Integer;

Хотя, там может быть так и реализовано.
UPD Это оказалось не то - ищется последнее вхождение любого символа из набора.
UPD2 Интернет предлагает:

function LastPos(const SubStr: String; const S: String): Integer;
begin
   result := Pos(Reverse(SubStr), Reverse(S)) ;
   if (result <> 0) then
     result := ((Length(S) - Length(SubStr)) + 1) - result + 1;
end;

[Человек_Борща]

var
 p:Integer;
 s:string;
begin
 s:='а-->б-->в...-->я';
 p:=Pos('-->я',s);
 Result:=p+Length('-->я'); //Result указывает на букву я
end;

[Аватар]

ExtractFileName(ExtractFileDir(s));

В s полное имя файла. Вариант d:\fff.txt не прокатит, нужен как минимум один каталог. Хотя в этом случае вернет строку нулевой длины

ADD

тю, слово путь сбило с толку, ответил невпопад

[Serge_Bliznykov]

Я конечно могу идти циклом от конца строки и пытаться выделить первый встречный разделитель. Есть ли более элегантное решение? Дельфи XE.

Ну и отлично. Так и делайте. И не вижу в данном подходе ничего "неэлегантного", вполне себе нормальный подход..

[Yurk@]

ну и немного извращенный метод:

uses StrUtils;
...
var
  s, ss : AnsiString;
begin
  s := 'а-->б-->в...-->я';
  s := AnsiReverseString(s);
  ss := Copy(s, 1, Pos('>', s)-1);
  ss := AnsiReverseString(ss);
  ShowMessage(ss);
end;

[Utkin]

Спасибо всем за ответы.

UPD2 Интернет предлагает:

Попробую.

p:=Pos('-->я',s);

Я не знаю:
1. Не ошибся ли пользователь. Он мог забыть указать последний элемент.
2. Я не знаю как выглядит последний элемент - почти любое сочетание символов, за исключением комбинации из которой получается разделитель.

тю, слово путь сбило с толку, ответил невпопад

Аналогия верная - это путь от вершины к узлу/листу дерева. Папки и файлы это тоже дерево.

Ну и отлично. Так и делайте. И не вижу в данном подходе ничего "неэлегантного", вполне себе нормальный подход..

Ну я думал - имеется уже готовая функция/процедура.

ну и немного извращенный метод:

До момента входа в функцию я не знаю как будет выглядеть разделитель. И второе - в элементе пути также могут попадаться символы из разделителя. То есть в данном примере может быть в середине где-то или в конце встретиться элемент '>'. Это не будет ошибкой.

[Yurk@]

я, конечно, не претендую на правильность своего решения, но всё-же позволю себе небольшой коммент

До момента входа в функцию я не знаю как будет выглядеть разделитель

можно ж передать формат разделителя входящим параметром

в элементе пути также могут попадаться символы из разделителя

и

почти любое сочетание символов, за исключением комбинации из которой получается разделитель

как-то одно другому не соответствует

То есть в данном примере может быть в середине где-то или в конце встретиться элемент '>'. Это не будет ошибкой

зависит от искомого разделителя)

[astecenko]

C TStringList делать не хотите?
Например так:

var
list:TStringList;
s:string;
...
//меняем разделитель на CR+LF
list.Text := stringReplace('а-->б-->в...-->я', '-->', #13#10, [rfReplaceAll]);
//получаем последнюю строку
s:=list[pred(list.count)];

[Utkin]

как-то одно другому не соответствует

Все соответствует.
Например:
a-->>-->в
Тут три элемента а, >, в

можно ж передать формат разделителя входящим параметром

Так и есть.

C TStringList делать не хотите?

Почему не хочу, просто не приходило в голову.
Спасибо всем за ответы. Думаю имеющихся вариантов достаточно.