delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته

أخواني أنا كنت أريد قبلا الوقت المستغرق لل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 بمعنى من ملي ثانيه الى ثانيه

وشكرا

السلام عليكم
الحل بسيط :اقسم الوقت المتحصل عليه على 1000 والناتج ضعه في Label1.Caption ليصبح كودك هو :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber/1000);
end;

(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(); لسبب أن العملية قسمة

شكرا لكم

Programmerstn

bassem_43

Programmerstn