Fungsi Delete String Di Delphi

DELPHI – FUNGSI DELETE STRING

18/02/2012 BY EKO WARDOYO

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_materi27.button_deleteClick(Sender: TObject);

02

var

03	kata:string;

04	uruttiga:integer;

05	urutsatu:integer;

06	jumlah_tiga:integer;

07	jumlah_dua:integer;

08

begin

09

10	uruttiga:=3;

11	urutsatu:=1;

12	jumlah_tiga:=3;

13	jumlah_dua:=2;

14

15	// buat variable kata dari objek yang mau dihapus.

16	kata:=edit_kata.Text;

17	delete(kata,urutsatu,jumlah_tiga);

18	edit_deleteawal.Text:=kata;

19

20	// kata dikembalikan kembali agar nilainya yang dipakai tidak nilai yang sudah dihapus sebelumnya

21	kata:=edit_kata.Text;

22	delete(kata,uruttiga,jumlah_dua);

23	edit_deletetengah.Text:=kata;

24

25

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.

1	procedure Tform_materi27.button_bersihClick(Sender: TObject);

2

begin

3

4	edit_kata.Text:='';

5	edit_deleteawal.Text:='';

6	edit_deletetengah.Text:='';

7	edit_kata.SetFocus;

8

9

end;

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_materi27.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then

5

begin

6

close;

7

end;

8

9

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

Download – Materi 27 Fungdi Delete String