Menghapus Teks Pada TextBox

11 07 2012

Pengisian karakter pada textbox, baik angka maupun huruf, tidaklah selalu benar. Untuk mengatasi hal tersebut, penulis mencoba membuat suatu aplikasi sehingga proses penghapusan kesalahan pengisian pada textbox tersebut bisa dilakukan satu persatu (seperti fungsi backspace). Namun demikian, jika Anda menginginkan penghapusan secara menyeluruh pada isian textbox tersebut, Anda tidak perlu repot-repot lagi membuat tip ini karena pada kontrol seperti edit (textbox), combobox, dan lain sebagainya, biasanya sudah ada fungsi untuk melakukan copy, paste, cut, dan delete. Anda hanya perlu mengklik kanan kontrol tersebut (saat run time) dan memilih salah satu dari pilihan tersebut sesuai keperluan Anda. Akan tetapi jika Anda tetap menginginkan tip untuk menghapus isian karakter pada textbox secara satu persatu, berikut langkah-langkah pembuatannya.

1. Buatlah proyek aplikasi baru dan desain form baru dengan meletakkan sebuah Edit dan Button.
2. Buka jendela unit dan ketikkan listing program berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelectAll;
Edit1.SelLength:=Edit1.SelLength-1;
Edit1.Text:=Edit1.SelText
end;

procedure.TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption:='<- Hapus';
end;

3. Sekarang coba Anda jalankan aplikasi tersebut dan coba Anda klik sebanyak 2 kali pada tombol “<- Hapus”, lalu lihat pada kotak textbox (Edit1) tersebut. Teks yang sebelumnya bertuliskan “Edit1” menjadi “Edi”.

catatan :

Pada aplikasi tersebut, proses penghapusan hanya bisa dilakukan satu persatu pada teks dengan cara menghapus karakter pada textbox dari belakang.


Aksi

Information

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




%d blogger menyukai ini: