FONCTION SPLIT
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
30 janv. 2008 à 01:48
Balthus14 Messages postés 1 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 24 décembre 2010 - 24 déc. 2010 à 12:10
Balthus14 Messages postés 1 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 24 décembre 2010 - 24 déc. 2010 à 12:10
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/45551-fonction-split
https://codes-sources.commentcamarche.net/source/45551-fonction-split
24 déc. 2010 à 12:10
voilà ma solution pour éviter la prise en considération du caractère espace par fonction "TSrings.DelimitedText"
Procedure ScinderPerso(S: string; const Delimiteur: char;Strings : TStrings);
begin
if assigned(Strings) then
begin
while Pos(DElimiteur,S)<>0 do
begin
Strings.add(copy(S,1,pred(Pos(Delimiteur,S))));
delete(S,1,Pos(Delimiteur,S));
end;
if S<>'' then Strings.add(S);
end;
end;
11 févr. 2008 à 10:49
11 févr. 2008 à 10:33
1 févr. 2008 à 21:14
30 janv. 2008 à 01:55
PS: au bout de 200 split, il y avait parfois un décallage => Bizarre.
Merci quand même!
30 janv. 2008 à 01:54
function Split(const S: string; const Delimiter: char; Strings: TStrings);
begin
if assigned(Strings) then
begin
Strings.Delimiter := Delimiter;
Strings.DelimitedText := S;
end;
end;
30 janv. 2008 à 01:48
begin
TSL := TStringList.Create;
try
TSL.Delimiter := ';';
TSL.DelimitedText := 'test1;;test3;test4;test5;test6;test7;;test9;';
ListBox1.Items.Assign(TSL); // assignation vers une liste par exemple
finally
TSL.Free;
end;
end;