Tips Trik Delphi - Hitung Jumlah Karakter pada Kalimat

Hitung Jumlah Karakter pada Kalimat

Posted on January 04, 2011, Filed in: Tips Trik Delphi

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

Tips Trik Delphi - Output Hitung Karakter

Sample Output

Download
Source Code Delphi - Hitung Jumlah Karakter pada Kalimat
File: hitung_karakter_pada_kalimat.zip
Hits: 327

Related content:

Rating: 4.3/5 (7 votes cast)

Rating: +2 (from 6 votes)

Previous post: Tahun Kabisat

Hitung Jumlah Karakter pada Kalimat

Trik menghitung jumlah huruf tertentu pada kalimat.

opx.bit