fbpx

Contador de Letras

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;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.