Menghitung Jumlah Karakter Tertentu Pada Suatu String

Temans, pada tips dan trik berikut ini saya akan menuliskan cara untuk menghitung jumlah karakter terntentu pada suatu string. Ada dua pendekatan yang saya lakukan. Yang pertama dengan looping sepanjang string dan kita cek satu persatu. Adapun cara kedua, adalah dengan me-replace dengan karakter kosong kemudian kita selisihkan panjang sebelum dan sesudah proses pe-replace-an. Selisih itu ada jumlah karakter yang kita cari. Lebih jelasnya perhatikan baris kode berikut ini :

1. Looping

class function TAppUtils.HitungKarakterLooping(AStringHitung : Char;
    AStringSource : String): Integer;
var
  i: Integer;
begin
   Result := 0;

   for i := 1 to Length(AStringSource) do
    if AStringSource[i] = AStringHitung then
      Result := Result + 1;
end;

2. Replace

class function TAppUtils.HitungKarakterReplace(AStringHitung : Char;
    AStringSource : String): Integer;
begin
  Result := Length(AStringSource) - Length(StringReplace(AStringSource, AStringHitung, '', [rfReplaceAll, rfIgnoreCase])) + 1;
end; 

Dari dua function di atas, mana yg lebih cepet? Terus terang saya belum pernah membandingkan. Jika anda ingin mengetahui berapa lama suatu function dieksekusi bisa membaca artikel Menghitung Lama Procedure/Function Dieksekusi