文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 183
阅读 10
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
Linux系统提高编辑效率的vim工具重要知识

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

kuSorZ ⋅ 昨天 ⋅ 0

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

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

老男孩oldboy ⋅ 05/07 ⋅ 0

shell学习之vim编辑器使用指南

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

白羊IT ⋅ 2017/05/07 ⋅ 0

使用 SQL*Plus

SQLPlus是Oracle提供的一个工具程序。 1、启动SQLPlus Oracle不仅提供了命令行和图形界面的SQLPlus,而且还可以在Web浏览器中运行。 ● 在命令行运行SQLPlus 使用sqlplus命令来完成,该命令适...

冰雷卡尔 ⋅ 2012/08/17 ⋅ 0

JS实现当前编辑行自动滚动至div显示区域

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

晨曦之光 ⋅ 2012/03/09 ⋅ 0

Python模块之StringIO

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

Jlan ⋅ 2015/09/30 ⋅ 0

python中的StringIO模块

此模块主要用于在内存缓冲区中读写数据。 模块是用类编写的,只有一个StringIO类,所以它的可用方法都在类中。 此类中的大部分函数都与对文件的操作方法类似。 例: 1 #coding=gbk 2 3 impo...

指尖跳动的精灵 ⋅ 2015/04/16 ⋅ 0

SQL*PLUS命令的使用大全(一)

Oracle的sqlplus是与oracle进行交互的客户端工具。在sqlplus中,可以运行sqlplus命令与sqlplus语句。 我们通常所说的DML、DDL、DCL语句都是sqlplus语句,它们执行完后,都可以保存在一个被称...

unix1oracle ⋅ 2007/06/15 ⋅ 0

sed学习系列---第2/3部分

---简介 sed 是十分强大和小巧的文本流编辑器。在本文章系列的第二篇中,Daniel Robbins 为您演示如何使用 sed 来执行字符串替换、创建更大的 sed 脚本以及如何使用 sed 的附加、插入和更改行...

huangtanxiao2007 ⋅ 2013/01/10 ⋅ 0

IntelliJ Debug当前行的问题

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

糊锅巴 ⋅ 2015/05/26 ⋅ 6

没有更多内容

加载失败,请刷新页面

加载更多

下一页

6. Shell 函数 和 定向输出

Shell 常用函数 简洁:目前没怎么在Shell 脚本中使用过函数,哈哈,不过,以后可能会用。就像java8的函数式编程,以后获取会用吧,行吧,那咱们简单的看一下具体的使用 Shell函数格式 linux ...

AHUSKY ⋅ 6分钟前 ⋅ 0

MySQL 内核深度优化

MYSQL数据库适用场景广泛,相较于Oracle、DB2性价比更高,Web网站、日志系统、数据仓库等场景都有MYSQL用武之地,但是也存在对于事务性支持不太好(MySQL 5.5版本开始默认引擎才是InnoDB事务...

OSC_cnhwTY ⋅ 13分钟前 ⋅ 0

单片机软件定时器

之前写了一个软件定时器,发现不够优化,和友好,现在重写了 soft_timer.h #ifndef _SOFT_TIMER_H_#define _SOFT_TIMER_H_#include "sys.h"typedef void (*timer_callback_function)(vo...

猎人嘻嘻哈哈的 ⋅ 15分钟前 ⋅ 0

好的资料搜说引擎

鸠摩搜书 简介:鸠摩搜书是一个电子书搜索引擎。它汇集了多个网盘和电子书平台的资源,真所谓大而全。而且它还支持筛选txt,pdf,mobi,epub、azw3格式文件。还显示来自不同网站的资源。对了,...

乔三爷 ⋅ 23分钟前 ⋅ 0

Debian下安装PostgreSQL的表分区插件pg_pathman

先安装基础的编译环境 apt-get install build-essential libssl1.0-dev libkrb5-dev 将pg的bin目录加入环境变量,主要是要使用 pg_config export PATH=$PATH:/usr/lib/postgresql/10/bin 进......

玛雅牛 ⋅ 24分钟前 ⋅ 0

inno安装

#define MyAppName "HoldChipEngin" #define MyAppVersion "1.0" #define MyAppPublisher "Hold Chip, Inc." #define MyAppURL "http://www.holdchip.com/" #define MyAppExeName "HoldChipE......

backtrackx ⋅ 53分钟前 ⋅ 0

Linux(CentOS)下配置php运行环境及nginx解析php

【part1:搭建php环境】 1.选在自己需要安装的安装包版本,wget命令下载到服务器响应目录 http://php.net/releases/ 2.解压安装包 tar zxf php-x.x.x 3.cd到解压目录执行如下操作 cd ../php-...

硅谷课堂 ⋅ 59分钟前 ⋅ 0

Nginx服务架构初探(四):nginx服务器的rewrite功能

nginx服务器的rewrite功能 1.nginx后端服务器组的配置 1>upstream name {…} name是给服务器组限的组名 2>server address [parameters]; address为服务器地址 parame......

余温灬未存 ⋅ 今天 ⋅ 0

layer.prompt使文本框为空的情况下也能点击确定

最近一直在使用layui,但是用到弹出层layer.prompt时,如果文本框是空的话点击确定没有反应,不能向下执行。 但是我又需要空值,看看我原来的代码。 123456789 layer.prompt...

孟飞阳 ⋅ 今天 ⋅ 0

Linux普通文件压缩工具gzip、Bzip2、xz

第六章 文件压缩和打包 6.1 压缩打包介绍 Linux环境常见压缩文件类型: .zip,.gz,.bz2,.xz, .tar.gz,.tar.bz2,.tar.xz 压缩打包的目的 方便文件传输 节省磁盘空间 减少传输花费的时间 ...

弓正 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部