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.... :)
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.... :)