Donne nombre de token dans une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 965 fois - Téléchargée 34 fois

Contenu du snippet

Peut s'utiliser avec TokenAt
Retourne le nombre de token contenu dans la chaîne S.

Source / Exemple :


function TokenCount(S: string; Seperator: Char): Integer;

var
  I: Integer;

begin
  Result := 0;
  I := 1;

  while (I <= Length(S)) do
  begin
    if (S[I] = Seperator) then
      Inc(Result);

    Inc(I);
  end;

  Inc(Result);
end;

A voir également

Ajouter un commentaire

Commentaire

Messages postés
54
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
21 décembre 2009

Euh... C'est juste une fonction qui compte le nombre de mots dans une phrase ?

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.