Пмогите !

[faradei4]

У меня такая задача. Дан текст на английском и русском языке в одном предложении. Мне надо побсчитать сколько букв в этом предложении на считая знаки препинания.

[artemavd]

Length(Edit1.Text);

[raxp]

...но сначала распарсить с поиском и удалением знаков препинания и пробелов через delete или replace.

[_SERGEYX_]

Еще знаки препинания удалить нужно...

var m: array[0..3] of Char = ('.', ',', '!', '?'); //ну, и какие там еще...

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s: string; i: Integer;
begin
  s := 'text. text, текст! текст?';
  for i := 0 to 3 do s := StringReplace(s, m[i], '', [rfReplaceAll]);
  ShowMessage(IntToStr(Length(s)));
end;