Delphi-Help

Главная Статьи Текст и Строки Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке

Оцените материал
(1 Голосовать)


Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке

Можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
s :string;
i,o,c :integer;
begin
s:=Edit1.Text;
o:=0; c:=0;
for i:=1 to length(s) do
begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(c);
end;
if o<>c then Edit2.Text:='Не одинаковое количество скобок!'
else Edit2.Text:='Одинаковое количество скобок!';
end;
Прочитано 8327 раз

Авторизация



Счетчики