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