Problème de split avec #13#10 ?
Bonjour,
J'utilise la procédure suivante :
Code:
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:
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
