Cita:
si la 1era letra de una palabra es mayuscula.. deveria contar..
|
Entonces es mucho más sencillo...
Código Delphi
[-]
function ContarAparicion(Frase: string): Integer;
var
i: Integer;
InWord: Boolean;
begin
Frase:= ' ' + Frase;
Result:= 0;
InWord:= False;
for i:= 1 to Length(Frase)-1 do
begin
InWord:= not (Frase[i] in [' ',',','.']);
if not InWord and (Frase[i+1] in ['A'..'Z']) then
Inc(Result);
end;
end;
Llamada:
Código Delphi
[-]
...
Frase:= 'Cuanto maYor seA la lONGITUD de La ConTraseña,' +
'menor Es la proBABIlidad de que los ataques "por Fuerza brUTa" tengan Exito.';
ShowMessage(IntToStr(ContarAparicion(Frase)));
Saludos.