delphi 进度条,该如何处理

delphi 进度条
我从本地机器上向远程服务器导入csv文件，由于使用ado结合query，文件较大，导入速度较慢，我想制作一个进度条用以向用户显示当前的导入进度，请问要怎么样用delphi制作这个进度条。(当我点击“导入”按钮时，可以弹出新的窗体也可以是在当前窗体显示进度也可以)，有没有具体的代码示范，谢谢。

------解决方案--------------------
说得详细一点或把你的导入语句贴出来。
如果是一条一条记录导入可用记录数做进度条。
------解决方案--------------------
首先你知道有多少条数据，然后逐条insert或其他，这样不就可以知道进度了吗
------解决方案--------------------
如果是数据导入用ProgressBar，先统计总记录数，在导入按扭，每导入1笔数据让Position+1,即
ProgressBar1.Max:=总记录数;
ProgressBar1.Position:=ProgressBar1.Position+1;

如果是拷贝文件，用Animate
Animate1.CommonAVI:=aviCopyFiles;
Animate1.Active:=True;
------解决方案--------------------

Delphi(Pascal) code

拉一下ProgressBar控件下來，改这个地方:

ProgressBar1.Max:=ADOQ_dr.RecordCount;
while not ADOQ_dr.Eof  do
begin
  ProgressBar1.Position:=ProgressBar1.Position+1;
...

delphi 进度条,该如何处理

相关推荐