Удаление текста, заключённого в круглые скобки, вместе со скобками
Возвращает строку, которая получилась из строки 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; |