Sunday - May 18, 2008

Home | Site Map | Channels | Profile | Press Room | Services | Contact 

currently 9 user(s) online

search 

   Latest News

»

sony-ak.com Luncurkan Kamus Teknologi Informasi (May 27, 2006)

»

sony-ak.com Luncurkan IT Event Calendar (May 20, 2006)

»

Web Chat Berbasis AJAX dari sony-ak.com (May 09, 2006)

»

sony-ak.com Advertising Program (May 01, 2006)

»

Sony AK di Tabloid PCplus (April 18, 2006)

news archives » 


   Random Article

»

Merubah Password User SYSDBA Pada Firebird 1.5.x (2590)

»

Bermain dengan tcpdump pada Linux (1659)

»

Koneksi dari PHP ke Database SQL Server dengan Menggunakan ODBC (4444)

»

Merubah Database Name Pada SQL Server (2767)

»

Pengenalan Internet bagi Pemula (10104)

   Newsletter

Join our newsletter, you will get alert about content updates

powered by Yahoo! Groups















Nedstat Basic - Free web site statistics

 
 
Tips Delphi: Fungsi StringReplace Untuk Mengganti Suatu Substring Pada Suatu String

Author: Sony Arianto Kurniawan
Published: June 08, 2004
Visits: 2407 - Category: Borland Delphi
 
     
 

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.




 Recommended articles
 

»

Pandangan Umum Mengenai Oracle Database (4348)

»

Google Labs, Etalase Riset Google di Bidang Teknologi Pencarian Informasi (2107)

»

Akses Web Service pada Windows Form dengan Visual Basic .NET (3631)

»

Mengenal Berbagai Software Gratis untuk Pekerjaan Komputer Anda Sehari-hari (8272)

»

Penghargaan Bagi Mereka yang Mau Berbagi (1871)

 Send your comments or suggestions
Full Name :
E-mail :
Comments :
 
 

  Privacy | Site Map | Advertise

  Copyright © 2003 - 2006 Sony AK Knowledge Center - all rights reserved

  info@sony-ak.com