微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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

如何解决如何找出tmemo组件中的字符数?

要做的是创建一个按钮,该按钮将备忘录中的字符数输出标签

抱歉,这似乎是一个愚蠢的问题,但我仍在学习Delphi。

解决方法

最简单的方法是调用备忘录的https://api.flutter.dev/flutter/widgets/Flexible-class.html方法:

返回控件文本的长度。

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

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

MemoLen := GetWindowTextLength(Memo1.Handle);

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

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

MemoLen := Length(Memo1.Text);

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。