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

[sapdigger]

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

能给我实现此功能的代码吗？

多谢！

[sapdigger]

是精确到微秒的功能，不是毫秒呀！

比毫秒更精确的。

[mengxianbao1521]

能问问做什么用吗？？

[yangkunjie]

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

[sapdigger]

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

[neilwq]

DateTimeToTimeStamp函数

[zxfsdbj]

DateTimeToTimeStamp

[wisenowa]

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

[sapdigger]

高手在什么地方呀？

这个问题难道没人能答对？

忘多帮助。