Определение подстроки от последнего минуса до конца строки

[vmilyoshin]

Есть строка типа 29-789+6,335-4*117-50,723
Как в Delphi определить часть строки от последнего минуса включая минус до конца строки.
В данном примере -50,723. Причём расположение последнего минуса в строке может менятся относительно конца строки. Может быть есть стандартная функция.

[netrino]

#include <iostream>
#include <string>

using namespace std;

int main() {
  string s, substr_from_last_minus;

  getline(cin, s);

  size_t position = s.find_last_of('-');

  if (position != string::npos) {
    substr_from_last_minus = s.substr(position);
    cout << substr_from_last_minus << endl;
  } else 
    cout << "Not found." << endl;
}

Так, например.

[vmilyoshin]

Сообщение от netrino

#include <iostream>
#include <string>

using namespace std;

int main() {
  string s, substr_from_last_minus;

  getline(cin, s);

  size_t position = s.find_last_of('-');

  if (position != string::npos) {
    substr_from_last_minus = s.substr(position);
    cout << substr_from_last_minus << endl;
  } else 
    cout << "Not found." << endl;
}

Так, например.

Может быть и так, но мне нужно в Delphi.

[netrino]

Ну так с этого, наверное, и следовало начинать?

var
  Str, SubStr: String;
  Position, I: Byte;
 
begin
  ReadLn(Str);
  Position := 0;
 
  for I := Length(Str) downto 1 do
    if Str[I] = '-' then
      begin
        Position := I;
        break;
      end;
 
  if Position <> 0 then
    begin
      SubStr := Copy(Str, Position, Length(Str));
      WriteLn(SubStr);
    end;
end.

[vmilyoshin]

Сообщение от netrino

Ну так с этого, наверное, и следовало начинать?

var
  Str, SubStr: String;
  Position, I: Byte;
 
begin
  ReadLn(Str);
  Position := 0;
 
  for I := Length(Str) downto 1 do
    if Str[I] = '-' then
      begin
        Position := I;
        break;
      end;
 
  if Position <> 0 then
    begin
      SubStr := Copy(Str, Position, Length(Str));
      WriteLn(SubStr);
    end;
end.

Спасибо огромное! Приспособил это к проверке текста в Edit. Всё замечательно сработало. Я думаю даже создать функцию, чтобы использовать ни только минус, а любой символ. Если не получится, то обращусь.