Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Delphi 4 işlem  (Okunma sayısı 1391 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı cakirr42

  • Global Moderatör
  • *****
  • İleti: 951
  • Rep: +5/-2
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • ÜYELİK.TK
Delphi 4 işlem
« : 10 Ocak 2010 16:00:03 »
yeni başlayanlar için paylaşayım dedim:

TOPLAMA
Kod: Delphi
  1. var
  2. sayi1,sayi2,sonuc:integer;
  3. begin
  4. label3.Caption := 'Toplam';
  5. sayi1:=strtoint(edit1.Text);
  6. sayi2:=strtoint(edit2.Text);
  7. sonuc:=sayi1+sayi2;
  8. edit3.Text := inttostr(sonuc);
  9. end;

ÇIKARTMA
Kod: Delphi
  1. var
  2. sayi1,sayi2,sonuc:integer;
  3. begin
  4. label3.Caption := 'Toplam';
  5. sayi1:=strtoint(edit1.Text);
  6. sayi2:=strtoint(edit2.Text);
  7. sonuc:=sayi1-sayi2;
  8. edit3.Text := inttostr(sonuc);
  9. end;


ÇARPMA
Kod: Delphi
  1. var
  2. sayi1,sayi2,sonuc:integer;
  3. begin
  4. label3.Caption := 'Toplam';
  5. sayi1:=strtoint(edit1.Text);
  6. sayi2:=strtoint(edit2.Text);
  7. sonuc:=sayi1*sayi2;
  8. edit3.Text := inttostr(sonuc);
  9. end;


BÖLME
Kod: Delphi
  1. var
  2. sayi1,sayi2,sonuc:integer;
  3. begin
  4. label3.Caption := 'Toplam';
  5. sayi1:=strtoint(edit1.Text);
  6. sayi2:=strtoint(edit2.Text);
  7. sonuc:=sayi1/sayi2;
  8. edit3.Text := inttostr(sonuc);
  9. end;

Not:Alıntıdır...
« Son Düzenleme: 17 Ocak 2010 12:07:53 by cakirr42 »
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı cakirr42

  • Global Moderatör
  • *****
  • İleti: 951
  • Rep: +5/-2
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • ÜYELİK.TK
Ynt: Delphi 4 işlem
« Yanıtla #1 : 16 Ocak 2010 17:40:27 »
Umarım Faydalı Olmuştur...
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"
Sayfa: [1]   Yukarı git
« önceki sonraki »