Извлечь последнее вхождение из скобок

[pavel151]

Добрый день всем, кто поситил эту страницу)
Вопрос такой, как в Delphi/FPC извлечь текст из последнего вхождения, например дан текст "1+(2+(3+(4+5)))", должно получиться "(4+5)".
Заранее спасибо)

[Alex11223]

Зависит от задачи. Если все выражения такого вида и в них только + (одинаковый приоритет операторов), то наверно можно придумать какой-нибудь несложный костыль, работающий на всех нужных данных. А так можно использовать какой-нибудь из алгоритмов разбора выражения, гугл в помощь. Например https://ru.wikipedia.org/wiki/%D0%90...86%D0%B8%D0%B8 для превращения в обратную польскую нотацию или дерево, ну а после этого уже легко определить что будет вычисляться последним.

[саша40]

function Work(Str: String): String;
var
i,k,i1,k1: integer; 
begin
repeat 
i:=0;
k:=0;
Result:=Copy(Str,i,k-i+1);
i:=PosEx(Str,'(',i1);
k:=PosEx(Str,')',k1);
i1:=i+1;
k1:=k+1;
until (i>0) and (k>0);
end;

Вот и всё! Учись!

[SQLPowerUser]

function getLastEntry(s: string): string;
var
  i, p: integer;
begin
  p := 1; Result := s;
  for i := 1 to Length(s) do
  begin
    if s[i] = '(' then p := i;
    if s[i] = ')' then begin
      Result := copy(s,p,i-p+1);
      break;
    end;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines.Add(getLastEntry('1+(2+(3+(4+5)))'));
  Memo1.Lines.Add(getLastEntry('1+(2+3)'));
  Memo1.Lines.Add(getLastEntry('(1+2)'));
  Memo1.Lines.Add(getLastEntry('()'));
  Memo1.Lines.Add(getLastEntry('some data'));
end;