01-03-2016, 12:30 PM
الكود السابق يقوم بذلك
عليك فقط اختيار الinterval المناسب
انتبه عشرة ألاف تخذ وقت وان اسرعنها كثيرا لا يمكن للمستخدم مشاهدتها
عليك فقط اختيار الinterval المناسب
انتبه عشرة ألاف تخذ وقت وان اسرعنها كثيرا لا يمكن للمستخدم مشاهدتها
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
int:Integer;
begin
int:=Round(10*1000/Memo1.Lines.Count);
if int<10 then int:=10;
if int>1000 then int:=1000;
Timer1.Interval:= int;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ