Find And Replace Dengan Delphi

Find And Replace Dengan Delphi~Hihihi, kalau lihat judulnya orang minang bilang, "sakarek ula, sakarek baluik", artinya begini setengahnnya ular setengahnya belut, karena dijudul kelihatannya pake bahasa inggris, Find and Replace tetapi diujungnya pake bahasa indonesia, Dengan bahasa Indonesia. Tak palah, gak usah dipusingin.
Kali ini saya hanya ingin mengulas script sederhana untuk menemukan dan mengganti karakter maupun kalimat tertentu didalam senarai kalimat. Sesuai dengan judul menggunakan bahasa pemrograman Delphi, setelah sebelumnya kita membahas Parsing Text Dengan Delphi, mudah-mudahan script kali ini juga bermanfaat.

function SearchAndReplace(sSrc, sLookFor, sReplaceWith : string) : string;
var nPos, nLenLookFor : integer;
begin
   nPos := Pos(sLookFor, sSrc) ;
   nLenLookFor := Length(sLookFor) ;
   while (nPos > 0) do begin
     Delete(sSrc, nPos, nLenLookFor) ;
     Insert(sReplaceWith, sSrc, nPos) ;
     nPos := Pos(sLookFor, sSrc) ;
   end;
   Result := sSrc;
end;

Untuk menggunakannya sobat semilir dapat menggunakan script berikut ini :

Hasil := trim(SearchAndReplace('Bahasa-Delphi', '-', ' Pemrograman '));

Script diatas akan menemukan karakter '-' pada kalimat 'Bahasa-Delphi' dan menggantinya dengan kalimat Pemrograman sehingga hasil akhirnya menjadi Bahasa Pemrograman Delphi. Seingat saya, script ini saya peroleh dari Delphiabout.com, semoga bermanfaat~Semilir hati