Delphi de if then else komutunun kullanimi

Delphi de if then else komutunun kullanimi

if komutu ile karsilastirma yapmak için kullanilan bir komuttur. if komutuyla sart gerçeklestigi zaman yapilacak görevler else ise sart gerçeklesmedigi zaman yapilmasi gereken görevler yazilir.if karsilastirma operatörünü size örneklerle açiklamaya çalisalim.Kullanimi:

if (sart) then komutlar
else komutlar

Örnek: Butona tiklandiginda edit1 içine girilen sayinin tek mi çift oldugunu label1 yazdiran program yapalim.

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
Begin
    i :=StrToInt(edit1.text);
    if i mod 2 =0 then
             label1.caption:=’çift sayi’
    else
             label1.caption:=’tek sayi’
end;

i degiskenimizi integer tanimladik. StrToInt komutuyla i degiskenizi sayisal deger vermemizi saglamis olduk. if i mod 2 =0 then komutlariyla i edit1.textbox kutusunda yazdigimiz degeri 2 böldürdük kalan sifir ise label1 çift sayi else (degilse) tek sayi yazdirir.Not: if i mod 2 =0 then buradaki mod edit1 girilen sayiyi 2 bölümünden kalani verir

Yazan : Ferhat Söker

Tarih :17.03.2011 03:33:46

Kardeş, Else komutunda hata veriyo... Bulamadım da sorunu.. Anlamadım bir türlü. Bir şey mi eksik, yardımcı olabilir misin? :/

Yazan :

Başlık :

Tarih :

Sorununuz :

Güvenlik Kodu :