双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

Tmemo控件的相关讨论

2004-04-06 11:28:48 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

tudouwujun 墨衍会员 · AI 创作全网分发关注 + 加入社区

Delphi控件命名规范常用控件命名前缀控件类名前缀 TForm等窗体类阅读详情

Tmemo控件用来存放文件的大小，但是对文件的大小有没有限制？
如果没有，如何得到TMemo控件中当前行的行数？
如果有，能用什么方法来解决？用Tstream可以吗?如何操作？
谢谢！
希望能附上源码！

...全文

Transformer——从原理、模型架构到内部细节介绍 Transformer模型是一种基于注意力机制的深度学习模型，最早由Google在2017年的论文《AttentionIsAllYouNeed》中提出。自其问世以来就迅速席卷了自然语言处理他（NLP）领域，并在各类主流任务上取得了新的突破，包括机器翻译、语言建模、序列标注和文本分类等。在NLP领域取得巨大成功后，迅速扩展到了计算机视觉（CV）领域，并带来了革命性的变化。这种基于自注意力机制的深度学习模型，不仅在NLP任务中力压群雄，也成为CV领域的新宠。阅读详情

tudouwujun

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

yantao14 2004-04-06

打赏
举报

unit Unit1;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
public
MaxCharsPerLine, MaxLines: Integer;
function MemoLine: Integer;
function LineLen(r: Integer): Integer;
function NRows: Integer;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.NRows: Integer;
begin
with Memo1 do
Result := 1 + SendMessage(Handle, EM_LINEFROMCHAR, GetTextLen-1, 0);
end;

function TForm1.LineLen(r: Integer): Integer;
var r1, r2: Integer;
begin
with Memo1 do begin
r1 := SendMessage(Handle, EM_LINEINDEX, r, 0);
if (r < NRows-1) then
r2 := SendMessage(Handle, EM_LINEINDEX, r+1, 0)-2 {-CR/LF}
else
r2 := GetTextLen;
end;
Result := r2-r1;
end;

function TForm1.MemoLine: Integer;
begin
with Memo1 do
Result := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MaxCharsPerLine := 8;
MaxLines := 4;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
with Memo1 do begin
case Key of
' '..#255: if (LineLen(MemoLine) >= MaxCharsPerLine) then
Key := #0;
#10, #13: if (NRows >= MaxLines) then
Key := #0;
#8: if (SelStart = SendMessage(Handle, EM_LINEINDEX, MemoLine, 0)) then
Key := #0;
end;
end;
end;

end.

cll007 2004-04-06

打赏
举报

当前行列可以用鼠标当前的位置来确定
很简单：
Memo1.CaretPos.X;
Memo1.CaretPos.Y;
-----
至于memo的可取的文件大小，最好自己去试一下，打开一个大文件

tudouwujun 2004-04-06

打赏
举报

还是不明白，感谢楼上的，但是代码太难懂了。大侠们帮帮我？

✦双11狂欢大促✦

Tmemo控件的相关讨论

相关推荐

双11狂欢大促