Удаление строки до определенного символа

[Hacker19_90]

Теперь вопрос
А что если в строке будет несколько '='?
Или это не учитывается?

[glebast]

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

Тогда так

  memo1.SelStart := pos('=', Memo1.Text) + 1;
  memo1.SelLength := length(Memo1.Text) - pos('=', Memo1.Text);
  Memo1.CopyToClipboard;

А ну вот, теперь почти. Он теперь только не с последнего = копирует а с первого:
123=6556=5623 он копирует 6556=5623

Можно ли что нибудь сделать?

[Hacker19_90]

Можно!
Сделать так
Завести переменную position

var
    position: integer;

Потом так

for i := Length(Memo1.text) downto 1 do
begin
    if Memo1.Text[i] = '=' then 
    begin
        position = i;
        break;
   end;
end;
  memo1.SelStart := position + 1;
  memo1.SelLength := length(Memo1.Text) - position;
  Memo1.CopyToClipboard;

[glebast]

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

Можно!
Сделать так
Завести переменную position

var
    position: integer;

Потом так

for i := Length(Memo1.text) downto 1 do
begin
    if Memo1.Text[i] = '=' then 
    begin
        position = i;
        break;
   end;
end;
  memo1.SelStart := position + 1;
  memo1.SelLength := length(Memo1.Text) - position;
  Memo1.CopyToClipboard;

А сейчас не знаю чего, но он вообще не копирует

[glebast]

а не все работает
Спасибо братан, уважаю!

[Hacker19_90]

Да не за что!
Вы просто в следующий раз
Ставьте чёткую задачу!