edit 输入字符时间隔时间记录

Question

在EDIT.txt 输入两个字符之间的时间差！例如，输入123456，我要知道6跟5之间的时间差是多少！！

Answer 1

用getticktime
在edit的ongchange事件或者onkeydown事件里计算

Answer 2

在edit的ongchange事件里计算
应该可以的，没有试过

Answer 3

定义一个全局变量vg_time用于记录上一次输入字符的时间
procedure TForm1.FormShow(Sender: TObject);
begin
  vg_time:=0;
end;procedure TForm1.Edit1Change(Sender: TObject);
var
  i,j:Integer;
begin
  i:=GetTickCount;
  if self.vg_time=0 then//第一次输入字符不计算间隔
  begin
    self.vg_time:=i;
    Exit;
  end;
  j:=i-self.vg_time;
  self.vg_time:=i;
  self.Label1.Caption:='间隔 '+FloatToStr(j)+' 毫秒';
end;