في تحميل البيانات من ملف نصي يمكنك ذلك من خلال عد عدد السطور مثلا
وطبعا انت سوف تقراءها سطر بسطر ولذلك لا مشكلة في استخدام البروغراس بار
اما بخصوص البيانات عن نفسي لم استخدمها
واذا تلاحظ حتى الشركات تستخدم بروغرس بار لا نهائي يظهر اثناء التحميل ويختفي بعد الانتهاء من التحميل
على العموم الامر متروك لك وحلك هنا جربه لانني لم اجربه
كود :
procedure TForm1.FormClick(Sender: TObject);
begin
ADOQuery1.ExecuteOptions := [eoAsyncFetch];
ADOQuery1.Open;
end;
procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
if (ProgressBar1.Max <> MaxProgress) then
ProgressBar1.Max := MaxProgress;
ProgressBar1.Position := Progress;
Application.ProcessMessages;
end;
end.
رابط الموضوع
كود :
http://www.delphipages.com/forum/showthread.php?t=114677
موضوع اخر
كود :
https://stackoverflow.com/questions/40945131/display-a-progressbar-when-i-perform-a-query
عملية البحث عن الموضوع بالقوقل
https://www.google.com.ly/search?safe=st...N6tlCNzqP8