delphi - 如何找出 tmemo 组件中的字符数？

Question

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

如果这似乎是一个愚蠢的问题，我深表歉意，但我仍在学习 Delphi。

Answer 1

最简单的方法是调用备忘录的GetTextLen()方法：

返回控件文本的长度。

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

Answer 2

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

MemoLen := GetWindowTextLength(Memo1.Handle);

或者

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

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

MemoLen := Length(Memo1.Text);