Delphi – Fungsi Delete String

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 :

procedure Tform_materi27.button_deleteClick(Sender: TObject);
  var
    kata:string;
    uruttiga:integer;
    urutsatu:integer;
    jumlah_tiga:integer;
    jumlah_dua:integer;
begin

  uruttiga:=3;
  urutsatu:=1;
  jumlah_tiga:=3;
  jumlah_dua:=2;

    // buat variable kata dari objek yang mau dihapus.
  kata:=edit_kata.Text;
  delete(kata,urutsatu,jumlah_tiga);
  edit_deleteawal.Text:=kata;

    // kata dikembalikan kembali agar nilainya yang dipakai tidak nilai yang sudah dihapus sebelumnya
  kata:=edit_kata.Text;
  delete(kata,uruttiga,jumlah_dua);
  edit_deletetengah.Text:=kata;

end;

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.

procedure Tform_materi27.button_bersihClick(Sender: TObject);
begin

  edit_kata.Text:='';
  edit_deleteawal.Text:='';
  edit_deletetengah.Text:='';
  edit_kata.SetFocus;

end;

untuk button bersih jika di klik maka akan membersihkan kata pada form. dan set focus pada edit kata dasar untuk penginputan kata selanjutnya.

procedure Tform_materi27.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then
    begin
      close;
    end;

end;

 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 tema Penggunaan 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 :

Download – Materi 27 Fungdi Delete String

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Menghitung Jumlah Karakter Edit Box

–          Delphi – Menampilkan dan Menghapus Gambar Image

–          Delphi – Mengubah Warna dengan Color Dialog.

_______________________________________________________________________________

5 thoughts on “Delphi – Fungsi Delete String

  1. Ping-balik: Delphi – Merubah Font Style Check Box « Catatan Eko

  2. Ping-balik: Delphi – Animasi Tampilan Teks « Catatan Eko

  3. Ping-balik: Delphi – Animasi Teks Zoom « Catatan Eko

  4. Ping-balik: Delphi – Animasi Teks Zoom | ekoeriyanah

  5. Ping-balik: Delphi – Animasi Tampilan Teks | ekoeriyanah

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