обнаружение зяпятых и точек, работает через раз

[HellMercenariess]

Попробовал делать это вот так:

   TmpStr:=ListBox1.Items.Strings[ListBox1.Count-1];
    len:=Length(ListBox1.Items.Strings[ListBox1.Count-1]);
     for I := 0 to len do
      if TmpStr[i]=',' then
       Wlb.Items.Add(',')else
       if TmpStr[i]='(' then
       Wlb.Items.Add('(')else
       if TmpStr[i]=')' then
        Wlb.Items.Add(')') else
         if TmpStr[i]='!' then  Wlb.Items.Add('!');

Знак восклицания обнаруживает примерно в 70% случаев, надо лучше

[Аватар]

Знак восклицания обнаруживает примерно в 70% случаев, надо лучше

Мистика однако А вообще цикл от 1 сделай. Не гарантирую, что 80% будет

[ZuBy]

for ... do
begin
..
end;

[саша40]

Может так лучше?

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

Для последующего поиска в строке восклицательного знака нужна функция PosEx из модуля StrUtils.