delphi中实现显示出微秒的功能

Question

delphi中实现显示出微秒的功能
例如：
当点下BUTTON1时，EDIT1中显示出一个字符串（此字符串中没有除数字以外的字符），这个EDIT1中显示出精确到微秒的时间数字。
怎样实现这个功能？能给我实现此功能的代码吗？多谢！

Answer 1

var
  H, M, S, MS: word;
begin
  DecodeTime(Now, H, M, S, MS);
  Edit1.Text := IntTOStr(H) + ':' + IntToStr(M) + ':' + IntTOStr(S) + '  ' + IntToStr(MS);
end;

Answer 2

你可以使用增加一个Timer控件实现你要的功能，相应的也可以调节Timer的Interval值来实现微秒变化显示的功能。

Answer 3

你用过TIMER控件没有，它可是精确到毫秒的呀！