Saran 1
Operasi penugasan variabel boolean harus langsung. Misalnya, dalam pernyataan IF/kemudian/Lain, klausa IF menetapkan variabel boolean ke True, dan klausa lain menetapkannya ke False. Kode berikut tidak ditulis dengan baik:
Jika if_love_delphi maka
Hasil: = Benar
kalau tidak
Hasil: = false;
Dan menulis dengan cara ini lebih baik:
Hasil: = if_love_delphi;
Saran 2
Hindari menggunakan pernyataan IF/kemudian/IF bersarang, dan sebaliknya menggunakan dan sebagai gantinya. Kode berikut terlalu bertele -tele:
Jika if_love_delphi maka
Jika if_love_linux lalu
Trykylix (sekarang);
Itu harus ditulis seperti ini:
jika if_love_delphi dan if_love_linux
Trykylix (sekarang);
Jangan khawatir bahwa pernyataan penilaian selanjutnya akan dieksekusi sebelumnya. Proyek | Opsi | Kompiler | Opsi Sintaks | Opsi Eval Boolean Lengkap biasanya dimatikan (kecuali jika Anda memilih item ini), yang memastikan bahwa pesanan eksekusi tidak dibalik.
Menggabungkan dua saran pertama, jika Anda memiliki kode seperti ini:
Jika if_love_delphi maka
Jika if_love_linux lalu
Hasil: = true;
Anda dapat mengubahnya menjadi:
Hasil: = if_love_delphi dan if_love_linux;
Sederhananya, jika hasilnya tergantung pada penilaian bersyarat, maka pernyataan seperti hasil: = benar atau hasil: = false tidak perlu. Saat menginisialisasi variabel boolean, Anda dapat menetapkan nilai untuk mereka. Namun, tidak perlu menginisialisasi variabel boolean ke false - Delphi telah menetapkannya ke false saat membuat variabel ini. Situasi serupa termasuk:
Properti Boolean dari objek secara otomatis diinisialisasi menjadi false (0);
Variabel Integer (integer), secara otomatis diinisialisasi ke 0;
String, secara otomatis diinisialisasi ke string kosong.
Saran 3
Saat menilai nilai variabel boolean, tidak perlu menggunakan pernyataan seperti "= true" atau "= false". Berikut ini tidak ditulis dengan baik:
if (if_love_delphi = true) dan
(If_love_linux = false) lalu
Donottrylinux;
Untuk nilai pengembalian suatu fungsi atau jika suatu properti adalah tipe boolean, itu harus ditulis seperti ini:
jika if_love_delphi dan
bukan if_love_linux lalu
Donottrylinux;
Saran 4
Cobalah untuk tidak menggunakan operator "+" untuk penggabungan string. Ini terlalu tidak efisien. Contoh berikut tidak bagus:
Showmessage ('' ketinggian lebih rendah ''+inttoStr (iheight)+'' m, berat ''+inttoStr (weight)+'' kg. '');
Menulis dengan cara ini akan lebih baik:
Showmessage (format ('' pada ketinggian lebih rendah %d, berat %d. '', [Iheight, iweight])));
Saran 5
Gunakan dengan pernyataan sebanyak mungkin. Tidak hanya efisien, itu juga membuat kode lebih mudah dibaca. Misalnya, kode ini:
Jika pengirim jika tedit lalu
if (tedit (pengirim) .text = '') atau
(Tedit (pengirim) .text [tedit (pengirim) .selstart] = '') atau
(Tedit (pengirim) .sellength =
Panjang (tedit (pengirim) .text))
dan (kunci dalam ['' a '' .. '' z '']) lalu
Kunci: = Uppercase (Key);
Ini tidak ringkas dan mudah dibaca seperti kode seperti itu:
Jika pengirim tedit maka
dengan pengirim seperti yang dilakukan Tedit
if (text = '') atau
(Teks [selstart] = '') atau
(Sellength = panjang (teks)) dan
(Kunci dalam ['' a '' .. '' z ''] lalu
KUNCI: = UPCASE (KEY);