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;
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;
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
//Hasilnya adalah 2
Sample Output
this tutorial is good ... ^-^
BalasHapussalam.. makasih ilmunya..
BalasHapusIni bagus,
BalasHapusTolong dong mas, kalo kita mau cari kata bukan per karakter gimana ya, misal >> 00047358850008826488958268952700087392235550008007
misal cari 0008 posisinya di length berapa dari smua dan ambil beberapa angka di blakang 0008 misal
0008 pertama ambil 64
0008 kedua ambil 22
0008 ketiga ambil 07
klo tau kirimpesan email ya, trimakasih banyak :)
cara hitung jumlah kata dalam sebuah bacaan dengan delphi 7 bisa bantu mas?
BalasHapusOutputnya urut dari yang paling banyak jumlahnya. Terus bisa exclude kata2 (tabel kata) yang ga ikut dihitung. Pliz email ya mas
misal :
saya = 25
anda = 30
perpustakaan = 5