Jumat, 08 April 2011

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
Tips Trik Delphi - Output Hitung Karakter
Sample Output

4 komentar:

  1. this tutorial is good ... ^-^

    BalasHapus
  2. Ini bagus,
    Tolong 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 :)

    BalasHapus
  3. cara hitung jumlah kata dalam sebuah bacaan dengan delphi 7 bisa bantu mas?
    Outputnya 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

    BalasHapus