PARSER POUR METTRE LES MOTS D'UNE VARIABLE STRING DANS UNE TSTRINGLIST
dvarrel
Messages postés
13
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
7 octobre 2007
-
15 sept. 2003 à 23:12
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 22 mai 2006 à 21:18
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 22 mai 2006 à 21:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12749-parser-pour-mettre-les-mots-d-une-variable-string-dans-une-tstringlist
https://codes-sources.commentcamarche.net/source/12749-parser-pour-mettre-les-mots-d-une-variable-string-dans-une-tstringlist
22 mai 2006 à 21:18
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
28 sept. 2005 à 13:27
Sinon, pitié, faite un effort sur les noms de variables :
i, z, z1, items : integer;
buf : string;
o : TStringList;
:-s
Damien
15 sept. 2003 à 23:12
function Parser(chaine:string):TStringList;
var o:TStringList;
begin
o:=TStringList.Create;
o.CommaText:=chaine; //c'est tout con !
result:=o;
end;