Membuat percabangan case of di delphi 7 menggunakan string

Judulnya sih membuat percabangan case of di delphi 7 menggunakan string tapi implementasinya agak berbeda, tidak apa-apa ya namanya juga buat coba-coba dan contoh. Baiklah kita mulai saja membahas tentang cara membuat percabangan case of di delphi 7, percabangan case of merupakan suatu statement pilihan atau seleksi di delphi dan berlaku juga di pascal karena delphi memang merupakan pengembangan dari pascal itu sendiri. Pasti semua sudah tahukan tentang statement percabangan/pilihan di pemrograman? Yup, istilah sederhananya adalah memilih mana yang benar dari sekian banyak pernyataan. Selain statement percabangan case of, ada juga statement percabangan if. Bila teman-teman mau melihat tutorialnya silahkan lihat di tutorial percabangan lengkap untuk pemula di situ juga terdapat contoh script source code programnya.
Membuat statement percabangan case of di delphi 7 menggunakan string Nah yang mau saya bagikan di sini adalah statement percabangan case of di delphi 7 apabila menggunakan string, padahal kita mengetahui statement percabangan case of di delphi 7 ini harus bernilai angka atau dengan tipe ordinal dan tidak boleh menggunakan string, jika tidak maka program tidak mau di jalankan atau terjadi error. Nah dalam hal ini tentunya ada trik tersendiri untuk mengatasinya bagaimana supaya nilai string tersebut bisa berjalan dengan sempurna caranya adalah dengan menggunakan array. Baiklah tanpa berlama-lama lagi silahkan teman-teman buka delphi 7 dan buat sebuah project baru. Tambahkan 4 buah button ke dalam form seperti yang terlihat gambar.

Selanjutnya berikut di bawah ini adalah kode lengkap Unit1.pas:

Saran saya jangan di copy paste kodenya karena saya coba tidak mau berjalan programnya, jadi ketika formnya sudah dibuat dan 4 buah button tadi baru di sesuaikan dengan kode di atas atau teman-teman juga bisa mendownload script source code percabangan case of delphi menggunakan string.

Nah sudah selesai, sekarang jalankan program yang sudah buat tadi, mudah bukan? selanjutnya tinggal sahabat CB (Catatan Belajar) kembangkan konsep dalam membuat case of di delphi 7 menggunakan string ini sesuai dengan keperluan teman-teman masing-masing. Jangan lupa berikan juga +1 Google sahabat di tulisan ini

Sumber : delphi[dot]about[dot]com

Kami (CB) juga hadir di Facebook, like kami ya klik tombol berikut:

 
Signature :

No copy paste content please…. If you want do that, please include the original source. Original Post by catatanbelajar.com, written by , .

Keyword : Membuat percabangan case of di delphi 7 menggunakan string.

8 thoughts on “Membuat percabangan case of di delphi 7 menggunakan string”

  1. kurang paham tentang case of gan nech ad tugas suruh membuat jadwal dengan menggunakan case ..of, apa itu case of cara buatnya gimana? thanks for share gan…salam kenal n kunjungan.

      1. begin
        nilai:=strToint(editan.Text);
        case nilai of
        80..100:EdHuruf.Copy:=’A’;
        70..79:EdHuruf.Copy:=’B’;
        60..69:EdHuruf.Copy:=’C’;
        50..59:EdHuruf.Copy:=’D’;
        0..49:EdHuruf.Copy:=’E’;

        saya mau tanya giman caranya agar 80..100,70..79 dst dan A,B dstnya itu bisa diambil dari tabel database mas..agar bisa diupdate atau diedit..
        misalnya tabelnya begini
        no Jumlah_nilai nilai
        1 80..100 A
        2 70..79 B

        sebelum dan saya ucapkan terima kasih..mohon bantuan gan..!

        1. Terimakasih sudah menjadikan tulisan ini sebagai referensi.

          Untuk contoh kasus yang mas sebutkan itu sebaiknya mas menggunakan logika if saja, jangan menggunakan case..of, karena case..of langsung menyebutkan nilainya.
          Bisa aja seperti itu tapi mas harus defenisikan secara detail
          misal begini:
          struktur tabel:

          Bandingkan dengan percabangan if berikut :

  2. pak mau tanya, gimana cara mengambil nilai maksimal dan minimal dari inputan pada editbox. Misal ada 12 editbox dgn data 10,11,12,13,14,15,15,14,13,12,11,10.
    hasil nilai max dimasukkan ke label1 dan nilai minimal ke label2. thanks

Tinggalkan Balasan