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

Question

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

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

Answer 1

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

返回控件文本的长度。

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