for i:=0 to 200000 do
begin
if (i mod 100 =0) then application.processmessage;//转交控制权给其他程序
prograssFrm.label1.caption:='正在执行'+intTostr(i);
end;
给分啊
begin
if (i mod 100 =0) then application.processmessage;//转交控制权给其他程序
prograssFrm.label1.caption:='正在执行'+intTostr(i);
end;
给分啊
解决方案 »
- Delphi通过 AVICAP32.DLL 函数拍照,为什么打开摄像头是黑的
- 帮我看看 这个语句 。。。。。
- Delphi中用到Oracle中的Sequences
- 请问毛利是什么意思,最近和朋友搞百货业的软件
- Delphi中,用什麼方法可以知道Excel的文件被別人查看或修改了?
- 关于网页制作
- 在intranet中用“共享”的方式copy和用ftp方式的copy有什么不同,速度有多少差异,请大家发表各自见解。
- 怎么把23000/23的值转成string显示
- 请问如何让DBGrid显示Memo型的字段内容?(急)
- 关于时间的显示
- 偶在做桌面数据库,越做越觉得自己菜,做的还不如手记账,怎么办呢?谁能帮偶分析一个小桌面?给分的
- 请教这是什么意思:{$IFDEF JPEG},高分求教
给分