Welcome To Bela Dwi Lestari Blog: Delphi

Minggu, 25 September 2016

Delphi – Fungsi Delete String

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;