Hitung Jumlah Karakter pada Kalimat

Hitung Jumlah Karakter pada Kalimat

Trik menghitung jumlah huruf tertentu pada kalimat.

Deklarasi fungsi:

function HitungKarakter(const teks: Char; kalimat: String;
  caseSensitive: Boolean): Integer;
var
  i,tmp: Integer;
begin
  Result:= 0;
  i:= 0;
  tmp:= 0;
  while i <= Length(Kalimat) do
  begin
    if caseSensitive then
    begin
      if kalimat[i] = teks then Inc(tmp);
    end
    else
    begin
      if Lowercase(kalimat[i]) = Lowercase(teks) then Inc(tmp);
    end;
    Inc(i);
  end;
  Result:= tmp;
end;

Parameter:
teks: huruf/karakter yang ingin dihitung pada kalimat.
caseSensitive: Ubah menjadi False jika case sensitive diabaikan, begitupula sebaliknya.
Contoh penggunaan:

ShowMessage(IntToStr(HitungKarakter('k', 'Kasur ini Rusak', False)));
//Hasilnya adalah 2