Bir çok durumda dallanma işlemlerinizi “if” ile gerçekleştireceksiniz. Fakat kodunuzun daha kolay anlaşılabilirliği (veya yazılması) açısından bazı durumlarda “case” yapısınıkullanmanız uygun olacaktır.
Şunu hiç bir zaman unutmayın “case” yapısıile gerçekleştireceğiniz tüm kodlarıif yapısıyla yazabilirsiniz, ama tersi mümkün değildir. Yani if yapısıyla oluşturacağınız kodları“case” ile yazamayabilirsiniz.
Aşağıda “case” yapısının kullanım şekilleri gösterilmiştir.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.Button13Click(Sender: TObject); var sayi:integer; begin case sayi of 1:ShowMessage('Girdiğiniz Sayı1 dir'); 2:ShowMessage('Girdiğiniz Sayı2 dir'); 3:ShowMessage('Girdiğiniz Sayı3 dür'); 4:ShowMessage('Girdiğiniz Sayı4 dür'); 5:ShowMessage('Girdiğiniz Sayı5 dir'); else ShowMessage('Girdiğiniz Sayı Yanlışdır'); end; end; |
“Case” yapısının davranışı şöyledir. Alternatifli değişkenin değerleri teker teker irdelenerek gerekli kodların işletilmesi sağlanır.