количество букв в richedit

[caxapok_209]

Подскажите пожалуйста как узнать количество букв в RichEdit которые введены курсивом

[Aliens_wolfs]

Как то так общий размер:

Showmessage(Inttostr(Length(RichEdit.text)));

либо только буквы:

var
i: integer;
begin
for i:=0 to length(RichEdit.text)-1 do
if (RichEdit.text[i] in ['A'..'Z']) or (RichEdit.text[i] in ['a'..'z'])
or (RichEdit.text[i] in ['А'..'Я']) or (RichEdit.text[i] in ['а'..'я']) then
showmessage(inttostr(i));

[Аватар]

В цикле выделять каждый символ и анализировать SelAttributes

[chertovich]

procedure TForm1.Button2Click(Sender: TObject);
var
  I, Count: Integer;
begin
  Count := 0;

  with RichEdit1 do
  begin
    for I := 0 to Length(Text) - 1 do
    begin
      SelStart := I;
      SelLength := 1;
      if fsItalic in SelAttributes.Style then
        Inc(Count);
    end;
  end;
end;

[caxapok_209]

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

procedure TForm1.Button2Click(Sender: TObject);
var
  I, Count: Integer;
begin
  Count := 0;

  with RichEdit1 do
  begin
    for I := 0 to Length(Text) - 1 do
    begin
      SelStart := I;
      SelLength := 1;
      if fsItalic in SelAttributes.Style then
        Inc(Count);
    end;
  end;
end;

спасибо работает