Parser pour mettre les mots d'une variable string dans une tstringlist

Commenter

Contenu du snippet

Voici mon tout premier code sur le réseau CodeS-SourceS.
Cette fonction a pour but de mettre les mots d'une variable string dans une variable TStringList.
ExUtilisation :
ListBox.Items:=Parser('je teste ma fonction parser');

Source / Exemple : 


function Parser(chaine:string):TStringList;
var i,z,z1,items:integer;buf:string;
o:TStringList;
begin
 items:=0;
 o:=TStringList.Create;
  for z1:=1 to length(chaine) do begin
   if Copy(chaine,z1,1)=' ' then inc(items);
  end;
 inc(items);
  for i:=1 to items do begin
   if i=items then o.Add(chaine);
   z:=pos(' ',chaine);
   buf:=Copy(chaine,1,z-1);
   chaine:=Copy(chaine,pos(' ',chaine)+1,length(chaine));
   o.Add(buf);
  end;
 o.Delete(o.Count-1);
 Result:=o;
end;

Conclusion :


Si vous trouvez des disfonctionnements , n'hesitez pas à me contacter : divxpack@hotmail.com

A voir également

S'inscrire maintenant

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.