Başlangıç > Kodlar > Delphi ile Function fonksiyonu ile toplamak

Delphi ile Function fonksiyonu ile toplamak


girilen iki deger ile  function fonksiyonu ile toplama  yapmasıdır

implementation

{$R *.dfm}

function toplama(x,y:integer):integer;
var
toplama:integer ;
begin
toplama:=x+y;
result:=toplama;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
label3.caption:=inttostr(toplama(strtoint(edit1.text),strtoint(edit2.text)));
end;
end.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: