Ceviz Forum - View Single Post - 1 den girilen sayıya kadar toplamını bulma

micra · 19/01/2007, 01:40

ben 2 tane edit birtane butondan bir program yapmak için ugrasıyorum
brda amacım edit1 e sayı girilsin
buton basınca edit 2de toplamı yazsın
yani örnegin 10 girildiyse
1 den 10 kadar olan sayıların toplamını yazsın
ben söyle bir kod yazdım
yanlıs nerde
dogrusu ne olması lazımdı
teşekkürler

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);
{$j+}
const
toplam:integer=0;
var
deger:integer;

begin

deger:=strtoint(edit1.Text);
deger:=deger+0;
toplam:=toplam+deger;
edit2.text:=inttostr(deger)+
'e kadar toplamı='+inttostr(toplam)+'eder';
;

end;

end.

19/01/2007, 01:40	#1 (permalink)
micra Üye Üyelik Tarihi: 12/2006 Mesaj: 17	1 den girilen sayıya kadar toplamını bulma ben 2 tane edit birtane butondan bir program yapmak için ugrasıyorum brda amacım edit1 e sayı girilsin buton basınca edit 2de toplamı yazsın yani örnegin 10 girildiyse 1 den 10 kadar olan sayıların toplamını yazsın ben söyle bir kod yazdım yanlıs nerde dogrusu ne olması lazımdı teşekkürler {$R *.dfm} procedure TForm12.Button1Click(Sender: TObject); {$j+} const toplam:integer=0; var deger:integer; begin deger:=strtoint(edit1.Text); deger:=deger+0; toplam:=toplam+deger; edit2.text:=inttostr(deger)+ 'e kadar toplamı='+inttostr(toplam)+'eder'; ; end; end.