Menghapus Teks Pada TextBox

Menghapus Teks Pada TextBox

03122016

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.