Delphi – İki Sayıyı Toplatma

Merhaba arkadaşlar,

Bugün sizlere delphide iki sayıyı toplatmayı göstereceğim.

İşlemimizi yapmak için formumuzu açıyoruz ve 2 Tane Edit, 1 Tane Button ve toplamı göstermek için 1 tane label ekliyoruz.

Ekledikten sonra butona çift tıklayarak içine aşağıdaki kodları yazıyoruz.

Burada yaptırdığımız işlemler sırasıyla şöyle önce say1, say2 ve top diye değişken tanımlıyoruz, tanımladığımız değişkenlerin değerlerini nereden alacaklarını gösteriyoruz ve işlemi yaptırıyoruz.

 
procedure TForm1.Button1Click(Sender: TObject);
var
say1,say2,top:integer;
//değişkenlerimizi burada tanımladık.
begin
say1:=strtoint(edit1.Text);
say2:=strtoint(edit2.Text);
//sayıları nereden alacaklarını belirtip stringten, integere çevirdik.
top:=say1+say2;
label2.Caption:=inttostr(top);
//işlemi yaptırıp toplamı labelde integerden stringe çevirerek gösterdik.

end; 

Ve ekran çıktımız aşağıdaki gibi oldu.

 

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , , , ,
Eklenme Tarihi: 10 Ocak 2017

Konu hakkında yorumunuzu yazın