Penerapan Kondisi Pada Delphi

Kondisi adalah proses penyeleksian alternatif-alternatif jawaban yang ada. Dan alternatif jawaban akan dikerjakan tergantung dari berbagai ketentuan dari suatu kondisi yang diberikan.

Perintah kondisi ini biasanya dengan menggunakan
IF Kondisi THEN atau
CASE seleksi type ordinal OF
End;

Macam-macam Kondisi IF

1. Kondisi Tunggal : memiliki satu kondisi dan satu alternatif jawaban
2. Kondisi Ganda : memiliki satu kondisi dan dua alternatif jawaban. Dan terdapat 1 perintah ELSE didalamnya sebagai pengecualian
3. Kondisi Jamak : Memiliki banyak kondisi dan banyak alternatif jawaban. dan terdapat banyak perintah ELSE di dalamnya sebagai pengecualian

Kondisi Tunggal

Contoh :

IF Kondisi THEN

     Alternatif Jawaban

Penerapan

A := strtoint(edit1.text);

B := strtoint(edit2.text);

If A>B THEN

        Edit3.text := 'benar';

Kondisi Ganda

Contoh :

IF Kondisi THEN

     Alternatif jawaban-1

ELSE

     Alternatif jawaban-2

Penerapan

A:= strtoint(edit1.text);

B:= strtoint(edit2.text);

IF A > B THEN

    Edit3.text := 'benar'

ELSE

    Edit3,text := 'salah';

Kondisi Jamak

Contoh:

IF Kondisi-1 THEN

      Jawaban-1

ELSE

     IF Kondisi-2 THEN

            Jawaban-2

     ELSE

          IF Kondisi-3 THEN

                   Jawaban-3

          ELSE

                   Jawaban-n

Penerapan

A:= edit1.text;

IF A = 'Hijau' THEN

        Edit2.text:= 'Jalan'

ELSE

        IF A = 'Kuning' THEN

              Edit2.text := 'Hati-Hati'

        ELSE

           Edit2.text := 'Berhenti';

#CASE

Case adalah perintah untuk mengelompokkan alternatif-alternatif jawaban yang diberikan yang diseleksi berdasarkan nilai var. Nilai var harus yang bertype ordinal (tunggal)

Bentuk Umum Perintah Case

CASE VAR OF

       Nilai-Var-1 :  Jawaban-1 

       Nilai-Var-2 : Jawaban-2

       Nilai-Var-3 : Jawaban-3

       ELSE

               Nilai-Var-n : Jawaban-n

END;

Penerapan

A := combobox1.itemIndex;

CASE A OF

      0 : Edit1.text := 'Jalan';

      1 : Edit1.text := 'Hati-hati';

       ELSE

               Edit1.text :='Berhenti';

END;

PERULANGAN

# FOR .... DO

*  for <var> := <nilai awal> to <nilai akhir> do

    begin

  .......

  end;

* for <var> := <nilai awal> DownTo <nilai akhir> do

     begin

  .......

  end;

Penerapan FOR .... DO

*  For a := 1 to 10 do

    begin

      Memo1.lines.add(inttostr(a));

   end;

# WHILE .... DO

<var> := <nilai init>

while kondisi do

begin

...../ counter <var>

end;

Penerapan While .... do

b := 0;

While b <5 do

begin

     b := b + 1;

     Memo1,lines.add(inttostr(b));

end;

# REPEAT .... UNTIL

<var> := <nilai init>

Repeat 

    ...... / counter <var>

Until Kondisi

Penerapan Repeat

b := 0;

Repeat

     b := b + 1 ;

     Memo1.lines.add(inttostr(b));

Until b = 5;

Sumber : http://girimaulana21.blogspot.com/2013/02/penerapan-kondisi-pada-delphi.html