Discussion :

[[ZiP]]

Bonjour,

J'utilise la procédure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
     Assert(Assigned(Strings));
     Strings.Clear;
     Strings.Delimiter := Delimiter;
     Strings.DelimitedText := Input;
end;

Dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
var
     MyRec     : TSearchRec;
     i,j,k     : integer;
     Liste     : TStringList;
     Temp      : string;
begin
 
[...]
 
except
     on E : Exception do
     begin
          Log('SQL : ' + IBQuery1.SQL.Text);
          Log('Erreur : ' + E.Message);
          Temp := E.Message;
          Temp := StringReplace(Temp,#$D#$A,'|',[rfReplaceAll]);
          Split('|',Temp,Liste);
          k := 0;
          for k:=0 to Liste.Count-1 do
          begin
               IdIRC1.Say(ANicknameFrom,'4' + Liste[k] + '');
          end;
     end;
end;

Le problème que je rencontre est le découpage de ma ligne en plusieurs bouts à chaque espace. Je pense que le problème est causé par les #13#10 mais je ne sais pas comment le contourner...

Merci,
Mathieu

[tourlourou]

si Liste est un TStringList, faire Liste.Text:=Temp; va séparer les chaînes selon les #10#13 et t'éviter le Split(...) mais tu en as pê besoin pour autre chose

[[ZiP]]

Bonjour,

Votre solution marche à merveille !

Merci,
Mathieu

[ShaiLeTroll]

ce Sujet "Construire un tableau à partir d'une chaine (Spliter)" devrait t'interresser !
Ainsi que "Récupérer chaque chaine séparé par un séparateur", mais sinon, comme le dit tourlourou, la TStringList gère très bien le #13#10, d'ailleurs, ça pose souvent moins de problème que via DelimitedText, j'ai eu des effets de bord étrange avec sur l'espace qu'il considère comme un séparateur sans raison (il considère tout caractère inférieur à 32 comme séparateur par défaut, ce n'est pas expliqué dans l'aide !), c'est ce qui m'a poussé à remplacer ça par un Explode (split) à ma façon