String replace (menggati teks) di delphi

Dapet ilmu baru nih dari oboz tempat gw kerja (+ kuliah gratis klo menurut gw ^__^ ) tentang string replace (ganti kata). Klo gw sih pake ni koding buat ngeganti pesan/message ucapan slamat ulang tahun ke anggota/member otomatis dari software administrasi gw. (buat para master, , , suuuttt, kasih masukannya ya ^____^ )

Skenarionya gini guys, misal gw punya format smsnya

"Selamat ulang tahun <nama> yang ke <umur>.

Balabalabala balabalabala balalalbalblalbala..." (jadi laper dah gw, inget tadi sarapan cuman sama bala-bala ajja. heu)

Nah, variabel <nama> sama <umur> pasti beda-beda donk tiap anggota/member, so, variabel ini yang mesti diganti (replace).

caranya gampang, , ,  tinggal pake fungsi StringReplace bawaan SysUtils.

Format penulisan codingnya

StringReplace(const S: String; const OldPattern: String; const NewPattern: String; Flags: TReplaceplags);

(hayyah, pusing dah gw liatnya juga... -__-"  )
mungkin buat loe-loe yang pada suka berpikir, loe langsung ngerti, tapi buat gw, butuh sekurang-kurangnya 15 menit buat ngecerna tu format.

Gampangnya gini deh, pake "bahasa nasional" aja ya

StringReplace('Isi pesan yang bakal loe ganti beberapa kata di dalemnya', 'kata yang mo loe ganti', 'kata baru sebagai penggantnnya', Aturan);

Nnahh, buat penjelasan aturan liat aja link di bawah ya... (gw bantu sundul ya gan... :) )

okkeh,contoh pemakaian di software gw 

var pesan : String; 
begin
pesan := 'Selamat ulang tahun <nama> yang ke <umur>. Balabalabala balabalabala balalal balblalbala...';
pesan:=StringReplace(pesan,'<nama>',QAnggota.fieldbyname('nama').asstring, [rfReplaceAll]);
pesan:=StringReplace(pesan,'<umur>',QAnggota.fieldbyname('umur').asstring,[rfReplaceAll]);

kirimpesan(QAnggota.fieldbyname('noHP').asstring, pesan);
end;

pesan  terakhir itu yang gw kirim sebagai ucapan ulang tahun.

yow, anyway ada yang ulang tahun hari ini ?

(Semoga tulisan ini dapat membuat Anda "Tersenyum" ^___^ )


info lengkap kunjungi : http://ekoindri.wordpress.com/fungsi-string-replace/  ^__^