Fungsi Menghitung Jumlah Sebuah Karakter

Fungsi untuk menghitung sebuah karakter dalam sebuah kata:

function TForm1.CountChars ( const str : string ; c : char ) : integer ;
var p : PChar ;
begin Result := 0 ; p := PChar ( Pointer ( str ) ) ;
  while p <> nil do
   begin p := StrScan ( p , c ) ;
    if p <> nil
    then
   begin inc ( Result ) ;
    inc ( p ) ;
  end ;
 end ;
end;

penggunaan fungsi diatas:

var i: integer;
      k: string;
begin
    k:= 'Saya#';
    i:= CountChars(k,'#');
end;

penjelasan:

variabel i adalah hasil dari penggunaan fungsi countchar dimana fungsi tersebut mencari jumlah karakter '#' pada sebuah kata 'Saya#' pada variabel k.


ok.. bersambung ya penjelasannya.... :)