CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 14 20:32:40

IIS7 : CONFIGURATION DES HANDLERS POUR L'UPLOAD DE FICHIER - INTERDIRE CERTAINS FICHIERS DE S'EXéCUTER | ACCéDER à DES FICHIERS .CS, .ASPX par cyril

MICROSOFT ANNONCE LE NOM COMMERCIAL DE WINDOWS 7 par RaptorXP

[SILVERLIGHT] TéLéCHARGEZ LA VERSION FINALE (ET LES OUTILS ASSOCIéS) DèS MAINTENANT ! par Thomas LEBRUN

VILAIN BUG AVEC IQUERYABLE ET LA SYNTAXE YIELD : SYSTEM.BADIMAGEFORMATEXCEPTION "AN ATTEMPT WAS MADE TO LOAD A PROGRAM WITH AN INCORRECT FORMAT. (EXCEPTION FROM HRESULT: 0X8007000B)" par Matthieu MEZIL

SQL SERVER 2008 : UN LIVRE EN COURS DE PRéPARATION ! par christian

RE : COMPOSANTE GRAPHE par cantador

RE : INTERBASE 6.2 par cantador

RE : PROBLèME DE REFRESH DBGRID par cantador

RE : COORECTION ORTHOGRAPHE DANS UN DBMEMO par mos123

RE : PROBLèME AVEC STRINGGRID par Oniria

+ de logiciels à télécharger

1 262 297 membres
648 nouveaux aujourd'hui
14 416 membres club

Trouver une ressource

Trouvez une ressource parmi 38 853 codes, 1 186 849 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PARSER POUR METTRE LES MOTS D'UNE VARIABLE STRING DANS UNE TSTRINGLIST

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 09/09/2003 Date de mise à jour : 09/09/2003 19:57:47 Vu : 1 878

Auteur : wsevilsnake

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

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

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;

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

Sources de la même categorie

REDÉFINIR LE COMPORTEMENT DU PAGEDOWN DANS REPORTBUILDER par dwmx5

STRINGGRID EXTENDED par dwmx5

DÉFILEMENT HORIZONTAL OU VERTICAL par cavalier2400

CHRONOMÈTRE POUR LE THÉ par Forman

PANNEAUX SOLAIRE par yvessimon

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de dvarrel le 15/09/2003 23:12:36

y'a plus simple

function Parser(chaine:string):TStringList;
var o:TStringList;
begin
o:=TStringList.Create;
o.CommaText:=chaine; //c'est tout con !
result:=o;
end;

Commentaire de elguevel le 28/09/2005 13:27:24

LoL c'est clair qu'il y avait plus simple :D

Sinon, pitié, faite un effort sur les noms de variables :

i, z, z1, items : integer;
buf : string;
o : TStringList;

:-s

Damien

Commentaire de japee le 22/05/2006 21:18:39 administrateur CS

Ouais, beaucoup plus simple...

Mais dans un cas comme dans l'autre, où libère-t'on les StringList créées à chaque appel de la méthode, hein ???

Je suggère donc :

procedure SplitString(const S: string; const Strings: TStrings);
begin
Strings.CommaText := S;
end;

qu'on appelle par exemple comme ça :

SplitString('ma chaîne à découper', ListBox1.Items);

Mais ne devient-il pas plus simple de faire directement :

ListBox1.Items.CommaText := 'ma chaîne à découper'; // lol