TStringList et DelimiterText

Salut,
jessaye de tokenizer une chaine String avec le Code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.GetTokensClick(Sender: TObject); Var Str: String; List: TStringList; begin Str:= 'aaa ooo | bbb| ccc| dddd'; List:= TStringList.Create; List.Delimiter:= '|'; Try List.DelimitedText:= Str ; showmessage(inttostr(list.Count)); Finally FreeAndNil(List); End ; end;
normaleman le showmessage doit me donner 4 Token, mais il me donne 5???
vos suggestions sont les bienvenue,
Merci

Je viens de tester çà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Var
  Str: String;
  List: TStringList;
  i : integer;
begin
  Str:= 'aaa ooo | bbb| ccc| dddd';
  List:= TStringList.Create;
  List.Delimiter:= '|';
  Try
    List.DelimitedText:= Str ;
    for i := 0 to list.count -1 do
      memo1.Lines.add(List.Strings[i]);
//    showmessage(inttostr(list.Count));
  Finally
    FreeAndNil(List);
  End ;

Et il en ressort

Citation:

aaa
ooo
bbb
ccc
dddd

En clair le DelimiterText prend en compte aussi les espaces.

Moi je te propose la solution suivante et qui fait ce que tu veux faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var
  Str: String;
  List: TStringList;
  i : integer;
begin
  Str:= 'aaa ooo | bbb| ccc| dddd';
  List:= TStringList.Create;
  try
    List.Text := StringReplace(Str,'|',#13#10,[RfReplaceAll]);
    for i := 0 to list.count -1 do
      memo1.Lines.add(List.Strings[i]);
  Finally
    FreeAndNil(List);
  End ;

Merci Malatar,