надо найти в richedit'e знаки пунктуации

@stupidstudent · Регистрация: 25.10.2011

Используя множества пришел к этому коду:

Delphi

cnt := Length(Rich.Text);
for I := 0 to cnt do
  for J := 0 to cnt do
    if Rich.Lines[i][j] in [',','!','?','.'] then
       inc(result);

Но при попытке просчета вылазит access vialotion
что я делаю не так?

@FIL · 22.01.2013, 21:36

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

что я делаю не так?

Практически все...

Delphi

cnt := Length(Rich.Text);
for i := 1 to cnt do
  if Rich.Text[i] in [',','!','?','.'] then
     inc(result);

	22.01.2013, 21:36