مشكل صديقك هو انه يقوم باستهلاك موارد النظام
المشكل ليس في الامر Locate لأنها تقوم بالمطلوب حتى وان كانت السجلات تقارب المليون
فقط يمكن استدعاء DisableControls قبل البحث والفلترة
على صاحبك أن يحرر موارد النظام باستدعاء الامر Free
مثال بسيط:
في هذا المثال يمكن لبرنامجي أن يستهلك مقدارا من موارد النظام بمرور الوقت ويتظاعف ذلك تدريجيا
المشكل ليس في الامر Locate لأنها تقوم بالمطلوب حتى وان كانت السجلات تقارب المليون
فقط يمكن استدعاء DisableControls قبل البحث والفلترة
على صاحبك أن يحرر موارد النظام باستدعاء الامر Free
مثال بسيط:
في هذا المثال يمكن لبرنامجي أن يستهلك مقدارا من موارد النظام بمرور الوقت ويتظاعف ذلك تدريجيا
PHP كود :
Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
if Label1.Caption = '3' then
begin
Timer1.Enabled := False;
Label1.Caption := '0';
end;
المثال التالي يتم التخلص من المشكل بتحرير موارد النظام
Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
if Label1.Caption = '3' then
begin
Timer1.Enabled := False;
Label1.Caption := '0';
Timer1.FreeOnRelease();
end;


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)