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

بسم الله الرحمن الرحيم

وضعت فيه label1 و زر Button1 و label1 مكتوب في ال Caption : رقم 0
كيف عند الضغط على button1 يتم زيادة العدد 0 إلى مثلا 1000
وإذا ضغت على الزر مره اخرى يتم زيادته إلى 2000 وهكذا إلى ماله نهاية Smile

يعني يتم إضافة 1000 إلى label1

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

هلا

كود :
procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
  i:=1000;
  j:=StrToInt(Label1.Caption);
  Label1.Caption:=IntToStr(i+j)
end;

كود :
inttostr(label1.caption)

x7x2011

n_alhetar

KaSsiMiTec