+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اظهر أن يظهر 1 لكل 1000 باستخدام مكون Timer (/showthread.php?tid=7226)
كيف اظهر أن يظهر 1 لكل 1000 باستخدام مكون Timer - Programmerstn - 09-10-2015
السلام عليكم ورحمة الله وبركاته
أخواني أنا كنت أريد قبلا الوقت المستغرق للTimer و الحمدالله هذا الكود نجح معي
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TimeNumber := Timer1.Interval;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber);
end;ولكن أريد أن يظهر 1 لكل 1000 بمعنى من ملي ثانيه الى ثانيه
وشكرا
RE: Timer - bassem_43 - 10-10-2015
السلام عليكم
الحل بسيط :اقسم الوقت المتحصل عليه على 1000 والناتج ضعه في Label1.Caption ليصبح كودك هو :
procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber/1000);
end;
RE: Timer - Programmerstn - 10-10-2015
(10-10-2015, 09:01 AM)bassem_43 كتب : السلام عليكم
الحل بسيط :اقسم الوقت المتحصل عليه على 1000 والناتج ضعه في Label1.Caption ليصبح كودك هو :
procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber/1000);
end;
شكرا أخي لكن مايضبط شوف ايش يطلع
[Error] Unit1.pas(41): There is no overloaded version of 'IntToStr' that can be called with these arguments
شكرا أخي تم حل المشكلة باستبدال الداله IntToStr(); الى الداله FloatToStr(); لسبب أن العملية قسمة
شكرا لكم