Delphi – Menghitung Jumlah Karakter Edit Box

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;