社区
Delphi
帖子详情
怎么得到Memo的行数
GK63
2012-11-20 04:25:34
怎么得到Memo的行数,谢谢
...全文
835
16
打赏
收藏
怎么得到Memo的行数
怎么得到Memo的行数,谢谢
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
16 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenjun_0312
2012-12-01
打赏
举报
回复
引用 14 楼 lyhoo163 的回复:
准确答案: memo1.Lines.Count 但要注意,memo的行数,比实际的行数多一行,自动加了一个回车。
准确的说是memo1.Lines.Count -1
icewind4096
2012-11-25
打赏
举报
回复
memo.lines.count
lyhoo163
2012-11-25
打赏
举报
回复
准确答案: memo1.Lines.Count 但要注意,memo的行数,比实际的行数多一行,自动加了一个回车。
burt_yu
2012-11-24
打赏
举报
回复
呵呵,楼主大好人啊
MI_HOME
2012-11-23
打赏
举报
回复
楼主把分平均分吧.
hsfzxjy
2012-11-23
打赏
举报
回复
楼主还想知道什么么。。没有就结帖吧。。
sky198306
2012-11-23
打赏
举报
回复
说得好详细啊
山东蓝鸟贵薪
2012-11-22
打赏
举报
回复
kaikai_kk 讲的有理
tiantianye
2012-11-22
打赏
举报
回复
顶大神~~~~
22222bbb
2012-11-21
打赏
举报
回复
同意楼上所有
darkeye
2012-11-21
打赏
举报
回复
来晚了,让楼上都说了
hsfzxjy
2012-11-20
打赏
举报
回复
同意楼上全部。。
oushengfen
2012-11-20
打赏
举报
回复
呵呵,两位大佬已经说完了,顶一下了
feiba7288
2012-11-20
打赏
举报
回复
memo1.Lines.Count
kaikai_kk
2012-11-20
打赏
举报
回复
总行数 Memo1.Lines.Count 光标所在行 i:=SendMessage(memo1.Handle, EM_LINEFROMCHAR, memo1.SelStart, 0); 光标所在行的内容 Memo1.Lines.Strings[i] 更简单的方法 i:=Memo1.CaretPos.Y; Memo1.Lines.Strings[i];
bdmh
2012-11-20
打赏
举报
回复
memo1.Lines.Count
Delphi 7.0
得到
Memo
中的可见
行数
.rar
Delphi 7.0 获取
Memo
控件中字符的可见
行数
,没讲 时在
Memo
控件中随便粘贴入一些字符,单击窗口中的“检测可见
行数
”按钮,即可
得到
该文本框控件中字符的
行数
,将这一系列执行命令集成在delphi的按钮监听事件中,编写如下代码即可: function LinesVisible(
Memo
: T
Memo
): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand := GetDC(
Memo
.Handle); try GetTextMetrics(Hand, TM);
Memo
.Perform(EM_GETRECT, 0, longint(@Rect)); tempint := (Rect.Bottom - Rect.Top) div
Memo
.Font.Height div -1; finally ReleaseDC(
Memo
.Handle, Hand); end; Result := tempint; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin bitbtn1.Caption:='可见[' IntToStr(LinesVisible(
Memo
1)) ']行'; end; 程序运行效果请参见截图所示,完整源码请下载。
Delphi统计文本框内容的行列数.rar
Delphi统计文本框内容的行列数,统计出文字有多少行、多少列,具体请看下面的代码://
得到
行号和列号 procedure TForm1.Button6Click(Sender: TObject); var Hang,Lie,Num,CharsLine:longint; begin Num:=SendMessage(
Memo
1.Handle,EM_LINEFROMCHAR,
Memo
1.SelStart,0); CharsLine:=SendMessage(
Memo
1.Handle,EM_LINEINDEX,Num,0); Hang:=Num 1;//当前行 Label3.Caption :='
行数
= ' IntToStr(Hang) ; Lie:=(
Memo
1.SelStart-CharsLine) 1;//当前列 Label4.Caption :='列数= ' IntToStr(Lie) ; 需要完整实例,请下载源码。
备忘录_矩阵连乘.rar_C/C++__C/C++_
备忘录法的矩阵连乘,C语言书写,小白易懂,不存在看不懂的情况,书写略粗糙
delphi控件cxGrid用法大全
delphi控件cxGrid用法大全,有目录可以直接打印
2021-2022计算机二级等级考试试题及答案No.16668.docx
2021-2022计算机二级等级考试试题及答案No.16668.docx
Delphi
5,930
社区成员
262,936
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章