Bonjour,
J'utilise la procédure suivante :
Dans le code suivant :
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;
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...
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;
Merci,
Mathieu
Partager