欲编一个测试打字速度的小软件，求测每分钟打字速度的公式！（200分相送。）

Question

在窗体上放一个MEMO控件，和一开始按钮。在点开始按钮时，程序开始计时。。
然后在MEMO的CHANGE事件里用的公式来算打打速度。。
我想是用总字数来除所用时间数。。不知在代码上该如何体现。。
如能解决另开100分相送
：）

Answer 1

将现在时间减按开始时的时间 赋给t1
length(memo1.text)/t1 就行了。
length(memo1.text)为integer值，每个汉字长度为2，每个英文为1。回车换行符为2

Answer 2

打字速度是指汉字速度还是字母速度
在memo中可以输入汉字也可以输入英文字母和数字
如果不管汉字还是字母都算一个的话，仅仅用length是不可以的
计算打字速度在onchange事件中是不合适的，建议另外加一个停止按钮，这个按钮停止开始计算打字速度
首先定义一个全局变量start:TDateTime;
在开始按钮的onclick事件中添加代码
start:=now;
memo1.readonly:=false;
memo1.setfocus
在停止按钮的onclick事件中添加代码
present:=now;
t:=(now-start)*24*60;
m:=0;
n:=0;
s:=form1.Memo1.Lines.Text;
i:=length(form1.Memo1.Lines.Text);
for j:=0 to i-1 do
begin
if ord(s[j])>127 then
  m:=m+1
else
  n:=n+1;//字母、数字个数
end;
m1:=m div 2;  //汉字、回车个数
v:=(m1+n)/t  //汉字、字母等都算一个字的速度
v:=(m1+n/2)/t // 汉字的打字速度
v:=(m1*2+n)/t //字母的打字速度

Answer 3

我这个例子是实时的，有点像《金山打字通》：
1.放一个Memo、一个Timer、两个Button、三个Edit
2.Button1：开始按钮
  Button2：停止按钮
  Edit1：时间（秒）
  Edit2：总字数
  Edit3：速度（字/秒）
3.设置Timer1.Interval:=1000;
  　　Timer1.Enabled:=False;
4.声明全局变量：
  var
    T,C:Integer;
    V:Real;
5.在Timer内加入代码：
    T:=T+1;
    C:=Length(Memo1.Lines.Text);
    V:=C/T;
    Edit1.Text:=IntToStr(T);
    Edit2.Text:=IntToStr(C);
    Edit3.Text:=FloatToStr(V);
6.在开始按钮的Click加入代码：
    Timer1.Enabled:=true;
7.在停止按钮的Click加入代码：
    Timer1.Enabled:=false;
8.完成！//-------全部源代码------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationvar
  T, C: Integer;
  V: Real;  {$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  T := T + 1;
  C := Length(Memo1.Lines.Text);
  V := C / T;
  Edit1.Text := IntToStr(T);
  Edit2.Text := IntToStr(C);
  Edit3.Text := FloatToStr(V);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;end.
//-------by (Graet)SuperYoyoNC------------------

Answer 4

更正一下！
开始按钮的Click加上Memo1.Setfocus;