有关ProgressBar1的问题？？

Question

我想在导入文件的过程中有关使用ProgressBar1的问题?如果有3000条文本文件，每个文件里都有内容.
在导入文件的过程中，ProgressBar1会按着导入的进度前进，并且会有百分比显示??
怎么使现？

Answer 1

你真是吝啬到不行，给10分，这些东西都需要自己写代码delphi的ProgressBar1哪里有这么智能啊

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := Table1.RecordCount;
    Table1.First;
    for i := Min to Max do
    begin
      Position := i;
      Table1.Next;
    end;
  end;
end;
帮助里的，应该有启发吧。把循环中的查数据库改为ｃｏｐｙ文件就可以了。