delphidbgrid统计:用Delphi轻松实现字数统计

现在有不少文字处理软件Software能实现文字统计功能如果我们自己也能动手编制个小来实现这功能不就更有意义了吗？
、编程思路:
通过ord将MemoControl控件中所有转换为对应数值再通过Length获得Memo中字节数然后通过for I:=1 To Length(s)do来判断各个字节所对应数值是否在33～126的间以确定是否为英文(中文个数即为它们所占字节数除以2)
2、编程步骤:
首先新建个工程保存好以后form1Caption属性设置为“字数统计”从Standard页上添加3个Label其Caption属性分别为:“请输入文字”“字母数”和“汉字数”同时设置Color属性为“clblack”
添加MeMoControl控件设置Color属性为“clmoneygreen”name属性为“Memo1”Scrollbars属性为“ssVertial”添加ButtonControl控件4个设置他们CAPTION分别为:“粘贴文字”“开始统计”和“退出清空”最后再添加EditControl控件2个设置Color属性为“clmoneygreen”
图 运行界面
3、完整代码
unit Unit3;
erface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
i,e,c:eger;
s:;
begin
s:=memo1.Text ;
e:=0;c:=0;
for i:=1 to length(s) do
begin
(ord(s[i])>=33)and(ord(s[i])<=126) then
begin
inc(e);
edit1.Text:=tostr(e);
end

(ord(s[i])>=127) then
begin
inc(c);
edit2.Text:=tostr(c div 2);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.PasteFromClipboard ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.clear;
edit1.clear;
edit2.clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
end.
以上在Delphi 6.0中编写并在Windows 98/2000中通过

延伸阅读

• 2009-2-3-- word字数统计:用Word统计文字出现的次数
• 2009-2-3-- word文档字数:不启动Word查看文档字数统计的思路方法
• 2008-9-25-- 在线字数统计:统计字数
• 2009-2-12-- 在线字数统计:统计字数