Pada kesempatan ini saya ingin berbagi satu tips yaitu menghilangkan teks spasi yang diketikan di komponen edit. Barangkali ada dari sekian sahabat penggemar Delphi yagn dihadapkan dengan kasus semacam ini. Yaitu ketika harus menginputkan teks yang tidak boleh ada spasi didalamnya. Misalkan kode aktivasi, kode barang ataupun yang lainnya. Baik, Tips ini saya dapatkan dari blog sahabar saya dengan alamat, http://adeisti.blogspot.co.id/2008/04/menghilangkan-spasi-pada-teks-di-delphi.html. Untuk lebih jelasnya mari kita langsung prakek saja.
Langkah Pertama, Bukalah form baru di delphi anda, kemudian tambahkan 1 komponen lebel, 2 komponen edit dan 1 komponen button. Ubah properti caption Button1 dengan Proses, label1 dengan Input Teks, Label2 dengan Hasil, Properti Text edit 1 dan edit2 dikosongkan. Perhatikan gambar berikut:
Langkah Kedua, klik 2 x Tombol Proses kemudian masukan kede berikut:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]); ;
end;
Setelah selesai jalankan program Anda dengan mengklik menu Run | Run atau tekan F9, jika tidak ada kesalahan koding maka akan tampil program seperti dibawah ini
No comments:
Post a Comment