Строки. Помогите переделать

[DeeCee]

Моя программа считает только количество символов в строке. А как сделать что бы она считала не любые символы, а заданные только?

var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin

end;

end;
end.

а вот эта считает только пробелы и буквы b

const
s=' ';
var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
if st[i]=s then
if st[i+1]='b' then
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin

end;

end;
end.

[_Dmitry]

Создайте множество и проверяйте, входит ли в него символ

if st[i] in ['a'..'f','A'..'F','z','Z'] then p:=p+1;

[DeeCee]

мне нужно что бы он считал только символы - *,;:

[Yurk@]

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

Моя программа считает только количество символов в строке. А как сделать что бы она считала не любые символы, а заданные только?

 var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin
end;
end;
end.

http://www.programmersforum.ru/showp...0&postcount=11

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

а вот эта считает только пробелы и буквы b

 const
s=' ';
var
st:string[50];
p,i:integer;
begin
st:=Form1.Edit1.Text;
p:=0;
For i:=1 to length(st) do
if st[i]=s then
if st[i+1]='b' then
p:=p+1;
Form1.Edit2.Text:=IntToStr(p);
begin
end;
end;
end.

Замени "пробелы" и "b" на нужные тебе символы и всё будет считать!

P.S. В данном коде много лишних строк! Их можно обьеденить!

[_Dmitry]

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

мне нужно что бы он считал только символы - *,;:

Ну, так в чем проблема? перечислите эти символы через запятую и проверяйте

for i:=1 to length(st) do
  if st[i] in ['*',',',';',':'] then p:=p+1;

[Yurk@]

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

Ну, так в чем проблема? перечислите эти символы через запятую и проверяйте

for i:=1 to length(st) do
  if st[i] in ['*',',',';',':'] then p:=p+1;

Данный код будет увеличивать счетчик при соответствии любому из перечисленных символов.

А если понадобиться посчитать каждый элемент в отдельности ???

[Карась]

Тогда надо забацать двумерный массив.
1 столбец - символы.
2 стобец - сколько раз встретились.

Берём посимвольну данную строку и сверяем с каждым элементом массива (1 столбец) . Как только совпало делаем +1 в соответствубщей сточке массива втоогостолбца.

[_Dmitry]

Сообщение от Yurk@

Данный код будет увеличивать счетчик при соответствии любому из перечисленных символов.

А если понадобиться посчитать каждый элемент в отдельности ???

Тогда придется усложнять логику.
Это один из вариантов проверки символа, окончательное же решение принимает тот кто пишет программу.

[_Dmitry]

Можно использовать case

  for i:=1 to length(st) do
    case st[i] of
    '*': p1:=p1+1;
    ',': p2:=p2+1;
    ';': p3:=p3+1;
    ':': p4:=p4+1;
    end;

[Yurk@]

Полностью согласен с _Dmitry + предлагаю ещё один вариант:

var
st:string[50];
i, kZv, kZap, kTZ, kDT :integer;

begin
kZv:=0;
kZap:=0;
kTZ:=0;
kDT:=0;
st:=Form1.Edit1.Text;
For i:=1 to length(st) do
begin
if st[i]='*' then begin Inc(kZv);  Edit2.Text:='Количество знаков "*"= '+IntToStr(kZv); end  else
if st[i]=',' then begin Inc(kZap); Edit3.Text:='Количество знаков ","= '+IntToStr(kZap); end  else
if st[i]=';' then begin Inc(kTZ);  Edit4.Text:='Количество знаков ";"= '+IntToStr(kTZ);  end  else
if st[i]=':' then begin Inc(kDT);  Edit5.Text:='Количество знаков ":"= '+IntToStr(kDT);  end  else
end;