文档章节

Memo 的当前行、当前列与当前字符

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 183
阅读 10
收藏 0
procedure TForm1.Memo1Click(Sender: TObject);
begin
  Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);
end;

//用 API 实现
procedure TForm1.Memo1Click(Sender: TObject);
var
  LineY,LineX: Integer;
begin
  LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
  LineX := SendMessage(Memo1.Handle,EM_LINEINDEX,LineY,0);
  Text :=  '当前行:' + IntToStr(LineY) + '; ' +                  //0开始
          '当前列:' + IntToStr(Memo1.SelStart - LineX) + '; ' +   //0开始
          '当前字符:' + IntToStr(Memo1.SelStart) + '. ';          //包括#13#10
end;


 
 
 
 
 

 

 

  
//统计字数 //添加 Memo1、Label1、Label2、还有Button1 procedure TForm1.Button1Click(Sender: TObject); var s: string; i,sum,e,c,t: Integer; begin s := Memo1.Text; e := 0; c := 0; sum := Length(s); for i := 0 to sum do begin if (Ord(s[i]) >= 33) and (Ord(s[i]) <= 126) then begin Inc(e); Label1.Caption := '字母数: ' + IntToStr(e); end; if Ord(s[i]) >= 127 then begin Inc(c); Label2.Caption := '汉字数: ' + IntToStr(c div 2); end; end; end;
//待续...

本文转载自:http://www.cnblogs.com/del/archive/2007/11/24/971441.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
shell学习之vim编辑器使用指南

前言: vim是Linux系统上的最著名的文本/代码编辑器,也是早年的vi编辑器的加强版。而gVim则是其Windows版。它的最大的特色是完全使用键盘命令进行编辑,脱离了鼠标操作虽然使得入门变得困难...

白羊IT
2017/05/07
0
0
Linux系统提高编辑效率的vim工具重要知识

原文出处:http://blog.51cto.com/oldboy/2113613 网上文章太杂,都是泛泛讲解,没有重点,本文表格的内容是相对重点的参数,值得读者学习掌握。 表7-1 vi/vim命令的参数选项及说明 内容来自...

kuSorZ
06/21
0
0
Linux系统提高编辑文件效率的vim命令重要参数注释讲解

表7-1 vi/vim命令的参数选项及说明 内容来自老男孩2018年7月出版的新书《跟老男孩学Linux运维:核心系统基础实践》第7章 ,敬请期待。 [t1]这是几种方法?如果是多种方法,各方法间请用顿号。...

老男孩oldboy
05/07
0
0
Python模块之StringIO

很多时候,数据读写不一定是文件,也可以在内存中读写。StringIO顾名思义就是在内存中读写str。 StringIO模块只有一个StringIO类,所以它的可用方法都在类中。 此类中的大部分函数都与对文件...

Jlan
2015/09/30
60
0
IntelliJ Debug当前行的问题

IntelliJ Debug的时候,不是高亮显示的当前行向下移动,而是高亮行固定了位置,滚动代码 Eclipse是代码固定,直接高亮行向下移动 IntelliJ这点让人非常不适应,debug起来眼花,有没有办法能够...

糊锅巴
2015/05/26
566
6

没有更多内容

加载失败,请刷新页面

加载更多

微服务分布式事务实现

https://www.processon.com/view/link/5b2144d7e4b001a14d3d2d30

WALK_MAN
今天
2
0
《大漠烟尘》读书笔记及读后感文章3700字

《大漠烟尘》读书笔记及读后感文章3700字: 在这个浮躁的社会里,你有多久没有好好读完一本书了? 我们总觉得自己和别人不一样,所以当看到别人身上的问题时,很少有“反求诸己”,反思自己。...

原创小博客
今天
4
0
大数据教程(9.5)用MR实现sql中的jion逻辑

上一篇博客讲解了使用jar -jar的方式来运行提交MR程序,以及通过修改YarnRunner的源码来实现MR的windows开发环境提交到集群的方式。本篇博主将分享sql中常见的join操作。 一、需求 订单数据表...

em_aaron
今天
3
0
十万个为什么之什么是resultful规范

起源 越来越多的人开始意识到,网站即软件,而且是一种新型的软件。这种"互联网软件"采用客户端/服务器模式,建立在分布式体系上,通过互联网通信,具有高延时(high latency)、高并发等特点...

尾生
今天
3
0
Terraform配置文件(Terraform configuration)

Terraform配置文件 翻译自Terraform Configuration Terraform用文本文件来描述设备、设置变量。这些文件被称为Terraform配置文件,以.tf结尾。这一部分将讲述Terraform配置文件的加载与格式。...

buddie
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部