Cara Menghitung Jumlah Karakter dengan delphi

Sekarang kita akan membuat program untuk Menghitung Jumlah Karakter, di sini kita dapat mengetahui berapa banyak karakter yang ada dalam surat-surat, tidak menghitung secara manual. kami baru saja mulai untuk memasukkan kode di bawah ini:

Fungsinya adalah sebagai berikut:function HitungKarakter(const teks: Char; kalimat: String;<br /> caseSensitive: Boolean): Integer;<br /> var<br /> i,tmp: Integer;<br /> begin<br /> Result:= 0;<br /> i:= 0;<br /> tmp:= 0;<br /> 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;

dalam program ini kita dapat menyaring letters caseSensitive.

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck