Contador de Letras via Delphi
Esta função efetua a contagem de letras de uma string fornecida
como parâmetro:
function WordsCount( s : string ) : integer;
var
ps : PChar;
nSpaces,
n : integer;
begin
n := 0;
s := s + #0;
ps := @s[ 1 ];
while( #0 <> ps^ ) do begin
while((‘ ‘ = ps^)and(#0 <> ps^)) do begin
inc( ps );
end;
nSpaces := 0;
while((‘ ‘ <> ps^)and(#0 <> ps^))do begin
inc( nSpaces );
inc( ps );
end;
if ( nSpaces > 0 ) then begin
inc( n );
end;
end;
Result := n;
end;