如何计算tmemo组件中的字符数

Question

我想做的是制作一个按钮，它可以获取备忘录中的字符数，并将其输出到标签中

如果这是一个愚蠢的问题，我很抱歉，但我仍在学习德尔福。

Answer 1

最简单的方法是调用Memo的GetTextLen()方法：

返回控件文本的长度。

procedure TForm1.Button1Click(Sender: TObject);
var
Len: Integer;
begin
Len := Memo1.GetTextLen;
Label1.Caption := IntToStr(Len);
end;

Answer 2

有几种方法可以获取TMemo中的文本长度。最快的是要求Windows返回长度(是Windows实现TMemo(：

MemoLen := GetWindowTextLength(Memo1.Handle);

或

MemoLen := SendMessage(Memo1.Handle, WM_GETTEXTLENGTH, 0, 0);

另一种方法是检索备忘录的文本并查询其长度：

MemoLen := Length(Memo1.Text);