|
Tips singkat kali ini adalah mengenai fungsi StringReplace pada Borland Delphi. Berawal ketika teman penulis punya masalah di Delphi, dia ingin mengganti string 'aku' pada Memo1.Text-nya dengan kata 'saya'. Caranya sangat mudah sekali pembaca. Pada Delphi terdapat suatu fungsi yang sangat berguna sekali untuk keperluan ini, nama fungsinya adalah StringReplace (yang didefinisikan pada unit SysUtils). Penulis sendiri kurang tahu sejak Delphi versi berapa fungsi ini hadir (beri tahu saya jika Anda tahu).
Sebelumnya kita lihat dulu sintaks dari fungsi StringReplace berikut ini.
function StringReplace ( const SourceString, OldPattern, NewPattern : string; Flags : TReplaceFlags ) : string;
Fungsi StringReplace ini akan mengganti suatu substring lama (baik yang pertama atau seluruhnya) pada suatu string dengan sebuah substring baru. Sekarang mari kita lihat parameter yang terdapat pada sintaks di atas.
- SourceString atau S, adalah string sumber yang nantinya akan diganti menjadi suatu string baru.
- OldPattern, adalah substring yang hendak kita cari pada SourceString.
- NewPattern, adalah substring pengganti yang akan menggantikan OldPattern.
- Flags, adalah flag dengan dua pilihan yaitu rfReplaceAll (akan mengganti semua substring yang ditemukan) dan rfIgnoreCase (akan mengabaikan huruf besar atau huruf kecil ketika pencarian substring dilakukan), ingat ini adalah parameter bertipe himpunan, maka jangan lupa tanda kurung siku untuk memulai dan menutupnya.
Sekarang mari kita mulai dengan contoh kasusnya. Ada suatu string 'saya cinta dia dan saya juga benci dia'. Kita akan mengganti kata 'saya' dengan kata 'aku'. Untuk itu silakan saja ketik code berikut ini.
var
asli, setelah : string;
begin
asli := 'saya cinta dia dan saya juga benci dia';
setelah := StringReplace(asli,'saya','aku',[rfReplaceAll,rfIgnoreCase]);
showmessage('string asli: ' + asli);
showmessage('string setelah diolah: ' + setelah);
end;
Setelah diganti maka variabel setelah akan berisi string 'aku cinta dia dan aku juga benci dia'. Demikianlah tips singkat mengenai fungsi StringReplace pada Delphi. Semoga bermanfaat bagi kita semua. Jika ada komentar atau saran bisa dikirimkan melalui
sony-ak@sony-ak.com. Untuk membaca tulisan menarik lainnya silakan menuju ke
www.sony-ak.com.
Terimakasih.
| Send
your comments or suggestions |
|
|
|