如何在程序中强行等待一段时间? 我在一个循环中想没执行一次循环就想让程序等待一段固定的时间在继续执行,各位大侠不吝赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var I : integer; i_from,i_to : Cardinal;begin for I:= 1 to 1000 do begin i_from := GetTickCount(); sleep(10000); i_to := GetTickCount(); showMessage(IntToStr(i_to-i_from)); end;end; 有关字符串内存复制问题 Udp有没有Connected时件? 双击文件怎样使windows调用我自己编的程序打开这个文件(获取文件名) DBF文件导入数据库的问题,呵呵 如何用TQuery控件连接一个SQL Server数据库?------(在线等待) 如何保证程序在多种显示分辨率下的健壮性 请问以下SQL语句怎样写?或者有没有其他方法。 FastReport好还是ReportBuilder好? 请大侠指教:如何实现象PHOTOSHOP的魔术棒的功能?(内空) 使用InterBase数据库 初学,两个数据库简单问题 用 Indy 的 IdSMTP 控件发送邮件时怎么做发送进度条?
var
I : integer;
i_from,i_to : Cardinal;
begin
for I:= 1 to 1000 do
begin
i_from := GetTickCount();
sleep(10000);
i_to := GetTickCount();
showMessage(IntToStr(i_to-i_from));
end;
end;