Assalamualaikum Temen Temen Semua, Salam Semangat Di Weekend Sabtu 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 Delete String. Jadi kita dapat menghapus sebagian karakter teks yang terdapat pada edit box sehingga mendapatkan nilai baru. Kalau dulu kita menggunakan fungsi
copy untuk mendapatkan nilai baru dari suatu string kita gunakan cara lainnya yakni menggunakan Fungsi
Delete., Nah Langsung aja disimak biar gak penasaran.
Pembuatan kali ini sangat sederhana kita hanya akan menggunnakan edit box sebagai kata dasar yang akan kita hapus karakternya serta edit box lainnya untuk tempat tampilan hasil delete string. 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 :
- saat program dijalankan kita bisa mengisikan edit kata untuk proses karakter dasar yang ingin dihapus.
- Saat Button delete di Klik tapi edit kata masih kosong maka akan ada pernyataan untuk mengisikan kata dasar terlebih dahulu dan set focus ke edit kata.
- Saat Button Delete di klik dan Edit kata sudah ada nilainya maka edit delete awal akan menampilkan nilai kata dasar dikurangi 3 huruf pertama, dan edit deletetengah akan menampilkan nilai dmana kata ke 3 akan dihapus sebanyak 2 huruf.
- saat button keluar di klik maka akan muncul konfirmasi keluar dengan message box konfirmasi.
Berikut ini adalah listing codenya :
01 | procedure Tform_materi 27 .button_deleteClick(Sender: TObject); |
15 | // buat variable kata dari objek yang mau dihapus. |
17 | delete(kata,urutsatu,jumlah_tiga); |
18 | edit_deleteawal.Text:=kata; |
20 | // kata dikembalikan kembali agar nilainya yang dipakai tidak nilai yang sudah dihapus sebelumnya |
22 | delete(kata,uruttiga,jumlah_dua); |
23 | edit_deletetengah.Text:=kata; |
Untuk fungsi delete ini kita akan banyak menggunakan variable untuk memberikan type data bahwa ia integer. saya sudah beberapa kali mencoba langgung menuliskan code dengan angka tapi hasilnya gagal karena tipe data yang digunakan harus interger. penggunaan variable kata dasar kita gunakan sebagai acuan kata apa yang akan dihapus dan kata apa yang akan ditampilkan setelah ada penghapusan.
1 | procedure Tform_materi 27 .button_bersihClick(Sender: TObject); |
5 | edit_deleteawal.Text:= '' ; |
6 | edit_deletetengah.Text:= '' ; |
untuk button bersih jika di klik maka akan membersihkan kata pada form. dan set focus pada edit kata dasar untuk penginputan kata selanjutnya.
1 | procedure Tform_materi 27 .button_keluarClick(Sender: TObject); |
4 | if(application.MessageBox( 'Yakin akan keluar dari program' , 'Konfirmasi' ,MB_YesNo)=ID_Yes) then |
konfirmasi box untuk meyakinkan apakah user bener benera akan keluar dari program
_______________________________________________________________________________
Nah dibawah ini adalah hasil tampilan programnya :
hasil saat button delete di klik
hasil button bersih di klik
message box saat keluar dari program
Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan temaPenggunaan Fungsi Delete pada 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 :
Tidak ada komentar:
Posting Komentar