+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة عدد لل label1 (/showthread.php?tid=2935)
اضافة عدد لل label1 - x7x2011 - 26-03-2011
بسم الله الرحمن الرحيم
وضعت فيه label1 و زر Button1 و label1 مكتوب في ال Caption : رقم 0
كيف عند الضغط على button1 يتم زيادة العدد 0 إلى مثلا 1000
وإذا ضغت على الزر مره اخرى يتم زيادته إلى 2000 وهكذا إلى ماله نهاية
يعني يتم إضافة 1000 إلى label1
والسلام عليكم ورحمة الله وبركاته
اضافة عدد لل label1 - n_alhetar - 26-03-2011
هلا
كود :
procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
i:=1000;
j:=StrToInt(Label1.Caption);
Label1.Caption:=IntToStr(i+j)
end;اضافة عدد لل label1 - KaSsiMiTec - 26-03-2011
كود :
inttostr(label1.caption)