我想在窗口显示百分比进度~不料用write吗?怎么弄……
解决方案 »
- DATA.ADOQBooks.FieldByname('pagecount').AsString:=trim(MaskEdit1.text);
- 在ListView添加数据时候如何过滤字符?
- 调用datamodule不显示数据
- 使用重叠IO处理UDP接收的时候,WSARecvFrom返回10014的错误。请高手指教
- 怎样往LISTVIEW中动态的添加数据?
- 招聘DELPHI5.0+sqlserver的程序员,一般水平即可!
- 菜单问题
- delphi 的MessageDlg(...) 中我可不可以使用带有中文的Buttons ...?
- 请问怎样将一个tdate型数据的年月日分离出来?
- 关于SQL的小问题!!!
- 高分请教奇怪的Ado的Lookup类型字段问题
- Sql 字符排序问题
见过命令行版的Winrar吧,解压文件显百分比,我就是想要那样的办法……
{$APPTYPE CONSOLE}
uses SysUtils,Windows;var
i: Integer;
begin
// Insert user code here
for i:= 1 to 100 do
begin
if i<> 1 then
Write(#13);
Write(inttostr(i)+'% complete');
sleep(500);
end;
end.