请求帮助 ' expected but ':' found

Question

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
 with progressbar1 do
 begin
 min:=0;
 Max := 100;
for i: = min to max do
begin
position:=i;
    end;
    end;
end;编译时候提示 [Error] Unit1.pas(33): ':=' expected but ':' found以下是delphi帮助的例子procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := Customers.RecordCount;   这里我看不懂是什么意思 ,请回答一下
    Customers.First;
    for i := Min to Max do
    begin
      Position := i;
      Customers.Next;               还有这里
      // do something with the current record
    end;
  end;
end;

Answer 1

郁闷,原来在I := Min to Max do 
I后面多打了个空格.
Position属性是让滚动条从0到100滚动吧?
我这样做了它没滚动，编译直接就到100了。
请问我是不是弄错属性了.

Answer 2

人家那个例子里面执行Customers.Next;一句会花去很多时间的，所以才会有进度条慢慢走的效果。你这个例子就是十分简单的，没有任何花时间的地方，所以一下子循环就结束了，进度一下子就到了100%。很正常的。

Answer 3

Customers 这是什么东西?我查HELP里面也查不到.

Answer 4

谢谢,如果我在添加一个Timer 值 1000
n:=progressbar1.position;
postiion=n+1;这样写.进度条会是1秒增加一个格吗?

Answer 5

Customers 是一个dataset,可以是Adoquery,AdoTable等

Answer 6

招聘 delphi 程序员(人数：2）
 毕业两年以上
 两年以上 delphi 工作经验
 熟悉 sql server 
 sql 编写能力突出者优先联系方式:
 深圳中普达科技有限公司
 0755 86170837
 请将简历发至 [email protected]