Delphi-Help

Главная Статьи Текст и Строки Удаление текста, заключённого в круглые скобки, вместе со скобками

Удаление текста, заключённого в круглые скобки, вместе со скобками

Оцените материал
(2 голосов)


Удаление текста, заключённого в круглые скобки, вместе со скобками

Возвращает строку, которая получилась из строки aStr в результате удаления из неё текста заключённого в круглых скобках вместе со скобками.

function DelPh(const aStr : String) : String;
var
  i, Len, P1 : Integer;
begin
  Result := aStr;
  Len := Length(Result);
  P1 := 0;
  for i := Len downto 1 do begin
    if Result[i] = ')' then
      P1 := i
    else if (Result[i] = '(') and (P1 > 0) then begin
      Delete(Result, i, P1 - i + 1);
      P1 := 0;
    end;
  end;
end;
Прочитано 7003 раз

Авторизация



Счетчики