Discussion :

[Ardely]

Bonjour,

J'ai un fichier de 66 Mega et je l'ajoute dans un tstringlist, malheureusement il fait un LineBreak suplémentaire au caractère (#13 carriage return) et j'aimerai bien qu'il fasse uniquement un LineBreak aux caractères (#13#10 carriage return and line feed combination).
example:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
..
SL2: TStringList; 
..
begin
...
 SL2 := TStringList.Create;  
 SL2.Delimiter := #13; //  => ?? #13#10
 SL2.DelimitedText := #13#10;
 SL2.text :=  StreamToString(FileStream) ; <= fichier rechercher et ajouter dans la liste en block 
...
end;

Est-ce possible de dire dans un tstringlist d'ignorer le Delimiter caractère (#13 carriage return) et de dire de réagir uniquement aux caractères (#13#10) ?

Je ne peux pas retirer le caractère (#13 seul) il doit être présent dans la liste.
Quelle solution pouvez-vous me proposer, merci beaucoup pour l'aide.
Ardely

[anapurna]

salut

Code :

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

 SL2.LineBreak = #13#10;

[Ardely]

Merci pour ta réponse.
En mettant LineBreak := #13#10 sa ne régle pas le problème j'ai toujours une ligne supplémentaire au caractère #13 !!

[anapurna]

salut

as tu pensé a vider le délimiter ?

Code :

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

1
2
3
 
SL2.Delimiter :='';
SL2.LineBreak = #13#10;

[Ardely]

Si je mets rien dans le Delimiter j'ai une erreur de compilation, je pense que le Delimiter exige un caractère!

[anapurna]

salut


autre solution histoire de voir si il y a pas un autre soucis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
..
SL2: TStringList; 
..
begin
...
 SL2 := TStringList.Create;  
 SL2.Delimiter := #13; //  => ?? #13#10
 SL2.text :=  StringReplace(StreamToString(FileStream),#10,'',  [rfReplaceAll, rfIgnoreCase]); 
...
end;