Delphi – Menghitung Jumlah Karakter Edit Box

Delphi – Menghitung Jumlah Karakter Edit Box

Assalamualaikum Temen Temen Semua, Salam Semangat Di Jum’at Pagi ini /(^o^”) masih tetap Setia untuk Tips Tips Materi Pembelajaran Dlephi nich (^.^”).

Nah kesempatan kali ini saya mau berbagi tips materi Delphi dengan Tema Mengetahui Jumlah Karakter Pada Edit Box. Jadi kita dapat menghitung jumlah karakter teks yang terdapat pada edit box. Untuk pembahasan Karakter ini maka untuk spasi pada edit box pun akan terhitung 1 karakter nich, Nah Langsung aja disimak biar gak penasaran.

Pembuatan kali ini sangat sederhana kita hanya akan menghitung panjang karakter yang diinput dalam nilai edit box. Komponen yang digunakan pun semuanya standar yang biasa kita gunakan di materi materi sebelumnya. Langsung kita praktekkan ya.

• Pertama Tama Buatlah Design Form Sebagai Berikut :

• Aturlah Properties Namenya seperti dibawah ini :

Nah untuk alur programnya temen temen bisa liat di bawah ini :

• Pada Saat program dijalankan kita bisa mengetikkan teks pada edit nama.
• Jika button hitung di klik namun edit nama masih kosong maka akan ada konfirmasi message box untuk mengisi nama pada edit nama agar ada nilai teks yang bisa dihitung (validasi nilai).
• Jika button hitung di klik dan edit nama sudah terisi maka edit jumlah akan menampilkan jumlah karakter yang di input pada edit naman ( spasi dihitung satu karakter ).
• Jika button bersih di klik akan membersihkan teks dan set focus ke edit nama untuk perhitungan selanjutnya.
• Jika button keluar di klik maka akan muncuk kotak konfirmasi apakah yakin akan keluar dari program, jika ya maka akan keluar dari program.

Berikut ini adalah listing codenya :

01	procedure Tform_materi26.button_hitungClick(Sender: TObject);

02

var

03	nama:string;

04

begin

05

06	if edit_nama.Text='' then

07

begin

08	showmessage('Silahkan isikan Nama Anda');

09	edit_nama.SetFocus;

10

end

11

else

12

begin

13	nama:=edit_nama.Text;

14	edit_jumlah.Text:=inttostr(length(nama));

15

end

16

17

end;

 buat variable nama untuk mewakili nilai hasil edit nama, penggunaan fungsi if untuk melakukan validasi nilai agar tidak ada nilai yang kosong yang dapat membuat error program. untuk menhasilkan nilai jumlah karakter kita hanya menggunakan fungsi length dari nilai yang ingin kita lihat jumlah karakternya.

1	procedure Tform_materi26.button_bersihClick(Sender: TObject);

2

begin

3

4	edit_nama.Text:='';

5	edit_jumlah.Text:='';

6

7

end;

JIka button bersih di klik maka akan membersihkan teks pada program.

1	procedure Tform_materi26.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program ?','Konfirmasi',MB_YesNo)=ID_Yes)then

5

begin

6

close;

7

end;

8

9

end;

Pada saat button keluar di klik maka akan memberikan konfirmasi keluar dari program.

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

tampilan hasil perhitungan karakter

konfirmasi pengisian saat edit teks kosong

hasil button bersih

konfirmasi keluar dari program

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Menghitung Jumlah Karater pada Edit Box Delphi. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 26 Menghitung Jumlah Karater