给你我以前写的一个例子~
with FrmDownData.XMLDocument1 do
begin
FrmDowndata.Label1.Caption:='正在连接网上数据,请稍后...';
FileName:=myDownLoadStr;
Application.ProcessMessages;
try
Active:=true;
FrmDowndata.Label1.Caption:='已连接网上数据,请稍后...';
except
FrmDowndata.Label1.Caption:='连接失败';
screen.Cursor:=crDefault;
showmessage('连接网络失败,请检测网络是否连好,地址是否正确,'+#13#10+'或者数据库中有非法字段,然后重试!');
exit;
end;
FrmDowndata.Caption:='正在读取数据,请稍后...';
end;
mycount:=FrmDownData.XMLdocument1.DocumentElement.ChildNodes.Count;
FrmDownData.StringGrid1.RowCount:=(mycount div 16)+1;
FrmDownData.Label2.Caption:='记录条数:'+inttostr(mycount div 16);
FrmDownData.ProgressBar1.Max:=mycount;
FrmDownData.ProgressBar1.Position:=0;
for i:=0 to mycount-1 do
begin
s:=FrmDownData.XMLdocument1.DocumentElement.ChildNodes[i].Text;
begin
FrmDownData.StringGrid1.Cells[i mod 16,(i div 16)+1]:=s;
FrmDownData.ProgressBar1.Position:=i+1;
FrmDownData.Label1.Caption:='正在下载数据:'+s;
application.ProcessMessages;
end;
end;
FrmDowndata.Label1.Caption:='数据下载完毕!';