计算字符的长度
2011-12-02 15:56
85 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Edit1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin close; //关闭窗口 end; procedure TForm1.Edit1Change(Sender: TObject); //编辑框1中的内容改变时的事件 var stringlength: integer; //记录编辑框1中的字符个数 begin stringlength := edit1.GetTextLen; //获取编辑框1中的字符个数 edit2.Text := inttostr(stringlength); //编辑框2显示编辑框1中的字符个数 end; end.
把编辑框2的属性修改为只读
Edit2's Readonly is true
相关文章推荐
- Lua 计算 UTF8 字符串的长度,每一个中文算一个字符
- 一个汉字作为一个字符进行字符串长度计算和切割
- 3. Longest Substring Without Repeating Characters(计算不含重复字符的最长子串的长度)
- 字符串与字符数组初始化及长度计算
- 计算字符串长度,中文俩字符,数字…
- 处理字符串的一些js/jq方法(去除HTML,去除空格,计算真实长度,截取中英文字符)
- 计算一段字符串的长度是否超出规定字数,两个英文字符占一个长度。
- 计算文本长度,区分中英文字符
- 输入一串字符,计算其长度
- shell 计算字符长度 echo $(expr …
- JS计算字符长度、字节数
- Javascript将双字节字符转换成单字节字符并计算长度
- 一个字符串去除里面的数字,把剩下的字符输出 和 一个字符串计算最大单词的长度并输出这个单词
- 计算含有中文字符字符串长度的函数
- 计算NSString的字符长度(和length有区别)
- 含软连字符的字符串计算显示长度的问题
- 根据字符长度计算UILabel高度
- 扩展TextField,合理计算中文字符长度(转)
- C语言中,当计算字符数组长度时,用sizeof 和strlen 的原理及两者的区别
- 自定义计算字符长度,中文占2