Delphi for delphier

Fungsi – String Replace

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Prosedur / Fungsi
   
Judul StringReplace
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada delphier pemula tentang cara menggunakan fungsi StringReplace.
   
Overview
Pembahasan kali ini akan ditekankan pada penggunaaan fungsi StringReplace. Fungsi ini berfungsi untuk mengganti suatu string dengan string yang lain dengan menggunakan parameter tertentu. Parameter disini adalah anda ingin mengganti semua kata yang dicari atau hanya sekali saja.

Jika anda sudah bisa menggunakan fungsi ini dengan baik, silahkan anda kembangkan sendiri sesuai dengan kebutuhan program aplikasi yang anda buat.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Bevel1: TBevel;
Button2: TButton;
Memo1: TMemo;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Memo2: TMemo;
Button3: TButton;
Button4: TButton;
Button5: TButton;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
prosedur0014.jpg
   
Langkah 7
Silahkan anda klik 2x pada tombol Replace. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := StringReplace(Memo1.Text, Edit1.Text, Edit2.Text, []);
end;
   
Langkah 8
Silahkan anda klik 2x pada tombol Replace ALL. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := StringReplace(Memo1.Text, Edit1.Text, Edit2.Text, [rfReplaceAll]);
end;
   

Langkah 9

Silahkan anda klik 2x pada tombol IgnoreCase. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := StringReplace(Memo1.Text, Edit1.Text, Edit2.Text, [rfIgnoreCase]);
end;
   

Langkah 10

Silahkan anda klik 2x pada tombol IgnoreCase ALL. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := StringReplace(Memo1.Text, Edit1.Text, Edit2.Text,
[rfIgnoreCase, rfReplaceAll]);
end;
   

Langkah 11

Sekarang anda lanjutkan compile program tersebut dengan menekan tombol Ctrl + F9.
   

Langkah 12

Tekan tombol F9 hingga program siap untuk dijalankan.

   
 

prosedur0015.jpg

   

Langkah 13

Tekan tombol Replace hingga didapatkan tampilan seperti berikut ini.

   
 

prosedur0016.jpg

   

Langkah 14

Tekan tombol Replace ALL hingga didapatkan tampilan seperti berikut ini.

   
 

prosedur0017.jpg

   

Langkah 15

Tekan tombol IgnoreCase hingga didapatkan tampilan seperti berikut ini.
   
 

prosedur0018.jpg

   

Langkah 16

Tekan tombol IgnoreCase ALL hingga didapatkan tampilan seperti berikut ini.
   
 

prosedur0019.jpg

   

Langkah 17

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.

   
Download

Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.

Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.

Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: