Quantcast
Channel: "Клуб программистов"– материалы по Delphi и С++ »поиск
Viewing all articles
Browse latest Browse all 10

Посчитать кол-во восклицательных знаков в тексте

$
0
0

саша40

var
i: integer;
a: integer;
Str: String;
begin
for i:=0 To ListBox1.Items.Count-1 Do
begin
Str:=ListBox1.Strings;
if Pos('!',Str)>0 then a:=a+1;
end;
ShowMessage('Восклицательный знак есть хотя бы 1 раз в ' + IntToStr(a) + ' строк');
end;

тема на форуме


Viewing all articles
Browse latest Browse all 10

Latest Images

Trending Articles