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 di Catatan Eko Personal Blog d(^.^”).

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 :

procedure Tform_materi26.button_hitungClick(Sender: TObject);
  var
    nama:string;
begin

  if edit_nama.Text='' then
    begin
      showmessage('Silahkan isikan Nama Anda');
      edit_nama.SetFocus;
    end
  else
    begin
      nama:=edit_nama.Text;
      edit_jumlah.Text:=inttostr(length(nama));
    end

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.

procedure Tform_materi26.button_bersihClick(Sender: TObject);
begin

  edit_nama.Text:='';
  edit_jumlah.Text:='';

end;

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

procedure Tform_materi26.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program ?','Konfirmasi',MB_YesNo)=ID_Yes)then
    begin
      close;
    end;

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

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Menampilkan dan Menghapus Gambar Image

–          Delphi – Mengubah Warna dengan Color Dialog.

–          Delphi – Web Browser

_______________________________________________________________________________