新手:怎样让progressbar伴随程序显示进度 我想用一个progressbar显示程序的进度,如我的程序的一个buttonclick过程中有很多操作,现在想用progressbar显示该buttonclick的运行进度,且要求progressbar的进度均匀增加,如何实现,请指点,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 拷贝文件时有进度显示procedure TForm1.mycopyfile(sourcef,targetf:string);var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; n:integer;begin AssignFile(FromF, sourcef); Reset(FromF, 1); { Record size = 1 } AssignFile(ToF,targetf); { Open output file } Rewrite(ToF, 1); { Record size = 1 } n:=0; repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); form1.label1.caption:=IntToStr(sizeof(buf)*n*100 div FileSize(FromF))+'100%'; application.ProcessMessages; //显示进度 BlockWrite(ToF, Buf, NumRead, NumWritten); inc(n); until (NumRead = 0) or (NumWritten <> NumRead); form1.Label1.Caption:='100%'; CloseFile(FromF); CloseFile(ToF);end;procedure TForm1.Button1Click(Sender: TObject);begin mycopyfile('e:\components\tv2k-w2k.zip','c:\a.zip');end; WinExec函数 一個迷惑很久了的問題 菜鸟问题,用delphi如何实现?高分重谢! 80分求关于加密的一点建议 请教 键盘 激发窗体弹出的问题??? 日期型字段怎样判断其是否为空? Delphi 中统计量数据量大的时候。。程序报EDBEngineer Error With.....大家帮忙。。救急!! 做监控员工上班时间是否上QQ项目 请问这个方法怎么实现? 请问''能否包括多行的字符? 使用ADO,从access把oracle数据库中,怎么做 书看的多的帮个忙.
procedure TForm1.mycopyfile(sourcef,targetf:string);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
n:integer;
begin
AssignFile(FromF, sourcef);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF,targetf); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
n:=0;
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
form1.label1.caption:=IntToStr(sizeof(buf)*n*100 div FileSize(FromF))+'100%';
application.ProcessMessages;
//显示进度
BlockWrite(ToF, Buf, NumRead, NumWritten);
inc(n);
until (NumRead = 0) or (NumWritten <> NumRead);
form1.Label1.Caption:='100%';
CloseFile(FromF);
CloseFile(ToF);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mycopyfile('e:\components\tv2k-w2k.zip','c:\a.zip');
end;