DoProgress

[hamedsadry3000]

کسی می تونه این تابع را توضیح بده و بگه چکار می کنه و کجا ها استفاده می شود


procedure DoProgress(AName: string; Index: Integer; Count: Integer;
Position: Integer; Size: Integer; var Abort: Boolean);
begin
Abort := False;
if Assigned(FOnProgress) then
FOnProgress(Self, AName, Index, Count, Position, Size, Abort);
end;


این قسمتش هم تو توابع دیگه به کار میره


while Position < FileSize do
begin
Abort := False;
DoProgress(FileName, 1, 1, Position, FileSize, Abort);

if Abort then
begin
خیلی ممنون از همه تون:متفکر:

[vcldeveloper]

کسی می تونه این تابع را توضیح بده و بگه چکار می کنه و کجا ها استفاده می شود
کجا این رو دیدید؟ به نظر میرسه که متدی از یک کلاس بوده، که شما اسم کلاس رو از داخل کد حذف کردید.

این کد یک رویداد (Event) رو که احتمالا اسمش هم OnProgress هست، در اون کلاس فراخوانی میکنه. این شیوه متداول فراخوانی رویدادها ست.