+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول progressbar و query (/showthread.php?tid=9949)
سؤال حول progressbar و query - lounnaci - 14-12-2018
[size=medium]السلام عليكم و رحمة الله [/size]
[size=medium]كيف استطيع اضهار تقدم تحميل البيانات داخل query من خلال progressbar[/size]
[size=medium]لمن له أي فكرة أو فيديو فليفدنا جزاكم الله خير [/size]
RE: سؤال حول progressbar و query - Delphi4Us - 14-12-2018
PHP كود :
var
i:Integer
progress1.maxvalue=qoury1.recordcount
For i=0 to qoury1.recordcount-1
begin
progress1.vaue=i
qoury1.next
end
RE: سؤال حول progressbar و query - lounnaci - 14-12-2018
(14-12-2018, 07:09 PM)Delphi4Us كتب :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
RE: سؤال حول progressbar و query - S.FATEH - 14-12-2018
السلام عليكم عمليا لا يمكن لانك لا تدري حجم المعلومات قد يكون لديك 100 سجل او 1000 سجل
RE: سؤال حول progressbar و query - merouane - 14-12-2018
باستعمال مكونات 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;