salut existe 'til une fonction ds Delphi qu permet de séparer une chaine en plusieurs?
 
comme Explode en PHP ou String Tokenizer en Java?

ExtractStrings mais c'est chiant parce qu'il prend les séparateurs comme espaces si les éléments sont pas entre guillements.
Enfin faut lire l'aide...

 
Debutant en Delphi, j'ai trouvé sur un site ces 2 fonctions:
Explode et Implode
//----------------------------------------------------------
function Explode(ch : string;sep: string = ';':TStringList;
var
p : integer;
begin
p := pos(sep,ch);
explode := TStringList.Create;
while p > 0 do begin
    explode.Add(copy(ch,1,p-1));
    if p <= length(ch) then ch := copy(ch,p+ length(sep),length(ch));
    p := pos(sep,ch);
end;
if length(ch)>0 then explode.Add(ch);
end;
//------------------------------
function Implode(lst:TStringList;sep : string =';':string;
var
    i : integer;
    s : string;
begin
i:= 0;
while i < lst.Count - 1 do begin
     s := s + lst[i] + sep;
     i := i + 1;
end;
if i < lst.Count then s := s + lst[i]; //Ne mets pas de séparateur sur le dernier élément
result := s;
end;
 
 
Bonne prog
A+

Si il a attendu la réponse, le mec il est patient  

Zion a écrit a écrit : Si il a attendu la réponse, le mec il est patient

 
La raison est que je viens de découvrir ce forum, il ya moins d'une heure

 
Benh tu as répondu a un topic du 21 juin, c'est bien louable de répondre, mais la c'est surement trop tard    
 
Au fait, rien de tel qu'un TStringList avec le CommaText, ou le DelimitedText  

Zion a écrit a écrit :     Benh tu as répondu a un topic du 21 juin, c'est bien louable de répondre, mais la c'est surement trop tard       Au fait, rien de tel qu'un TStringList avec le CommaText, ou le DelimitedText

sur un autre forum, j'avais posté une question début septembre, je viens de reçevoir la réponse par courriel....
j'ai fini le cours en janvier...
c'est quand même drôle

Quoi, t'en avais encore besoin?
 

non

toc toc, cest moi (3 ans apres )
les fct explode et implode m'interressent mais c'est plein d'erreur
et je debute en delphi
 
help

on suppose que la variable s contient la chaîne à couper et que l'on veut couper sur des tirets :

up
j'arrive pas a faire marcher le bouzin si le delimiter contient plus d'un caractere
 

pour préciser un peu plus, je travaille avec les donnees de packet TCP correspondant a du traffic http, donc en gros j'ai des trucs de la forme  
 
xxxxxxxx'#$D#$A'xxxxxxxxxxxxxxxxx'#$D#$A'xxxxxxxxxxxxxxxxx
 
edit: ce qui est byzarre, c'est que si j'affiche la chaine dans un showmessage, les retours a la ligne sont geres

le $D$A correspond au retour a la ligne
 

ouais, j'ai reussi a faire un truc qui marche mais pas tres propre, en fait, ce sont surtout les quotes qui m'intriguent  
 
si j'ai le temps + tard, je referrais un truc plus propre