XE7 & FMX 那些年我们一起上过的控件：ListView 之 (2) 加载数据时如何显示进度条

procedure TForm1.Button2Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure()
    var
      i,j: integer;
      t1,t2: cardinal;
      t3: double;
    begin
      listView1.Items.Clear;
      label1.Text:=‘‘;
      i:=1000;
      ProgressBar1.Value:=0;  //没有数据, 置0
      ProgressBar1.Max:=i;    //最大值
      t1:=TThread.GetTickCount; //记录时间,非必须的
      for j := 0 to i do begin  //如果你是从数据库或内存表里取数据的，则应该如 for j:=0 to ClientDataSet.RecordCount-1 do 这样取
        sleep(5);  //停5ms，必须的，否则下面填数据时会卡菊花。这里看你CPU的强硬程度，5-20即可，手机用户需适当设置
        TThread.Synchronize(TThread.CurrentThread,
          procedure()
          begin
            with ListView1.Items.Add do begin
              text:=‘No: ‘+j.ToString;
              t2:=TThread.GetTickCount;   //记录时间,非必须的
              t3:=(t2-t1)/1000;         //计算时间,非必须的
              detail:=Format(‘耗时：%f 秒‘,[t3]);  //显示耗时
            end;
            ProgressBar1.Value:=j;  //进度条当前进度
            Label1.Text:=Format(‘[ 进度：%d / %d ]‘,[j,i]); //显示当前进度
          end
        );
      end;
  end).start;
end;