سؤال حول progressbar و query

[lounnaci]

[size=medium]السلام عليكم و رحمة الله [/size]

[size=medium]كيف استطيع اضهار تقدم تحميل البيانات داخل query من خلال progressbar[/size]

[size=medium]لمن له أي فكرة أو فيديو  فليفدنا  جزاكم الله خير   [/size]

[Delphi4Us]

PHP كود :

var
i:Integer

progress1.maxvalue=qoury1.recordcount
For i=0 to qoury1.recordcount-1
begin
progress1.vaue=i
qoury1.next
end 


[lounnaci]

PHP كود :

var
i:Integer

progress1.maxvalue=qoury1.recordcount
For i=0 to qoury1.recordcount-1
begin
progress1.vaue=i
qoury1.next
end 


شكرا gm hod لكن هذا الكود يصلح فقط عند انتهاء عمل query 
المراد من سؤالى هو كيفية اضهار كمية البيانات على progressbar في طور تشغيل query

[S.FATEH]

السلام عليكم عمليا لا يمكن لانك لا تدري حجم المعلومات قد يكون لديك 100 سجل او 1000 سجل

[merouane]

باستعمال مكونات FireDAC
FDQuery ثم Events (أو Evenements) ثم AfterGetRecord

ProgressBar1.Max = 1000000

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDQuery1.Active := True;
  ProgressBar1.Position := ProgressBar1.Max;
end;

procedure TForm1.FDQuery1AfterGetRecord(DataSet: TFDDataSet);
begin
  ProgressBar1.StepBy(1);
end;