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

_______________________________________________________________________________

5 thoughts on “Delphi – Menghitung Jumlah Karakter Edit Box

  1. Ping-balik: Catatan Eko

  2. Ping-balik: Delphi – Fungsi Delete String « Catatan Eko

  3. Ping-balik: Delphi – Merubah Font Style Check Box « Catatan Eko

  4. Ping-balik: Delphi – Animasi Tampilan Teks « Catatan Eko

  5. Ping-balik: Delphi – Animasi Tampilan Teks | ekoeriyanah

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s