cette fonction compte le nombre de mot(s) dans une chaine.
les chiffre sont compté comme mots aussi
"j'adore" compte pour un mot et non deux
Source / Exemple :
Function NombreDeMots(Chaine :string):integer;
var i :integer;
c :char;
DebutExist :Boolean;
begin
result := 0;
DebutExist := false;
for i := 1 to length(Chaine) do
begin
c := Chaine[i];
if c in ['''','a'..'z','A'..'Z','0'..'9'] then
begin
DebutExist := true;
if i = length(chaine) then result := result + 1;
end
else
begin
if DebutExist then result := result + 1;
DebutExist := false;
end;
end;
end;
Conclusion :
http://delphicool.developpez.com
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.