haii...
oke, ini catatan kedua saya...
kali ini saya akan mencatat mengenai cara membuat Title Case / Name Case untuk TEdit. jadi gini...komponen TEdit itu kan punya properti CharCase...nah value defaultnya itu cuma ada ecUpperCase, ecNormal, dan ecLowerCase.
eh paham kan mengenai CharCase ini fungsinya apa???jadi properti ini yang nantinya akan membuat isi dari TEdit itu terisi dengan tulisan BESAR SEMUA [ecUpperCase], SesuAI inPutan [ecNormal], atau kecil semua [ecLowerCase]. nah...maksud dari Title Case itu agar isi dari TEdit itu menjadi seperti "Contoh Ini Adalah Isi Tedit", jadi setiap kata akan diawali dengan huruf besar semua...kaya gini nih...
 |
| Hasil Title Case / Name Case |
nah gitu...biar bisa bikin TEdit kaya gitu, kita perlu menulis kode seperti ini ...
 |
| Kode Name Case dan Cara Memanggilnya |
penjelasan dari kode nya kaya gini
- jadi pertama itu kita bikin dulu prosedur nya, disini dikasih nama NameCase dengan parameter Edit
- masuk ke prosedur NameCase, disitu ada percabangan if ... then, untuk mengecek jika Edit.Text itu kosong alias ga ada isinya maka Abort atau abaikan saja
- baris berikutnya ada variable s yang diisi dengan UpperCase. ini untuk men-set atau membuat huruf awal dari isi TEdit menjadi UpperCase atau huruf besar
- kemudian kita buat perulangan untuk cek huruf kedua dan seterusnya (sepanjang isi dari TEdit)
- masuk ke percabangan lagi, ada kondisi dimana ketika i=5, i-1=4 adalah sebuah ' ' (baca: spasi)
- maksudnya gini misal isi dari TEdit = Isi E maka urutannya [I,s,i, ,E] = [1,2,3,4,5]. E merupakan huruf terakhir yang berada diurutan ke-5, kemudian dilihat apakah urutan yang ke-4 itu berupa ' ' (baca: spasi) atau bukan
- jika benar spasi maka urutan ke-5 menjadi huruf besar, jika tidak maka tetap huruf kecil
- Terakhir, percabangan paling bawah itu digunakan untuk meletakkan kursor ke bagian paling akhir dari isi TEdit
terimakasih kunjungannya...salam
Tidak ada komentar:
Posting Komentar