Question

delphi 如何判断richedit有多少个字符

Answer 1

====================================================================
RichEdit调整页面内容显示位置
====================================================================

procedure TForm1.MemoRichEditResize;
var
rect1: TRect;
begin
SendMessage(RichEdit1.Handle, Em_Getrect, 0, Longint(@Rect1));
Rect1.Left :=28;
Rect1.Top := 8;
Rect1.Right:='这里是你的10个字体的宽';
Rect1.Bottom:=RichEdit1.Height-8;
SendMessage(RichEdit1.Handle, Em_SETrect, 0, Longint(@rect1));
end;
procedure TForm1.FormResize(Sender: TObject);
begin
MemoRichEditResize;
end;

Answer 2

xx: string ;

xx := '' ;
for i := o to richedit1.lines.count -1 do begin
xx := xx + richedit1.Lines[i].string ;
end;

length(xx)

Answer 3

length(richedit1.Lines.Text)