文档章节

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
深圳
程序员
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
shell学习之vim编辑器使用指南

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

白羊IT
2017/05/07
0
0
JS实现当前编辑行自动滚动至div显示区域

最近在正在做的会计系统实施过程中,客户要求在录入凭证分录时,实现每次录入的分录自动选中,并且如果分录在其所在的div隐藏区域时,将其滚动至显示区域。由于先前已经实现JS控制的当前行高...

晨曦之光
2012/03/09
0
0
Python模块之StringIO

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

Jlan
2015/09/30
60
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

1、Vue解决安卓4.4不兼容的问题

1.npm安装 npm install babel-polyfill--save-devnpm install es6-promise--save-dev package.json中会出现 "babel-polyfill": "^6.26.0","es6-promise": "^4.1.1", 2.main.js引入 impo......

阿K1225
10分钟前
0
0
mybatis generator 属性详解

<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE generatorConfiguration PUBLIC "-//mybatis.org//DTD MyBatis Generator Configuration 1.0//EN""http://mybatis.org/dtd/mybatis......

太黑_thj
14分钟前
0
0
windows nvm 安装 node

nvm 是 node 的版本控制管理 下面是下载 nvm 的地址,选择 nvm-setup.zip 下载 https://github.com/coreybutler/nvm-windows/releases 就是下一步下一步,一键安装 基本命令有: nvm arch [32...

U_I_A_N
16分钟前
0
0
js判断字符串中是否包含某个字符串

indexOf() indexof()方法可以返回某个指定的字符串值在字符串中首次出现的位置。如果要检索的字符串值没有出现,则该方法返回-1。 var str = "123";console.log(str.indexOf("3") != -1);...

小星星_cjx
28分钟前
0
0
函数式组件完整例子

之前创建的组件是比较简单,没有管理或者监听任何传递给他的状态,也没有生命周期方法。它只是一个接收参数的函数。 在下面这个例子中,我们标记组件为 functional,这意味它是无状态 (没有响...

tianyawhl
31分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部