Discussion :

[Marc_3]

Bonjour,

Je voudrai savoir si il existe une possibilité pour transformer un string avec séparateur ou simplement espace et le charger directement
dans un TStringList.

En fait l'idée est d'avoir une version de loadFromFile() pour une ligne de texte.

J'ai bien vu setText, mais je ne comprends pas vraiment la doc.

J'ai besoin de quelque chose dans le style:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dativ_praep := 'ab dank gemäß nach vis-à-vis aus entgegen';  // dativ_praep  :  Shortstring
dativ_str_list := TStringList.create;
 
   dativ_str_list.SetText(dativ_praep);
 
et plus tard 
 
for i := 0 to ...  do
     ...  := dativ_str_list[i]

Je ne connais rien nom plus a PChar, type demandé par setText


Est-ce que c'est possible ou est ce qu'il faut tout coder soit même?

Merci de votre aide

[Barbibulle]

Bonjour,

Ce que vous cherchez s'appelle SplitString :

http://docwiki.embarcadero.com/Libra...ls.SplitString

[Marc_3]

C'est bien cela dont j'ai besoin, très pratique et super flexible.

Merci pour la réponse

marc_3

[SergioMaster]

Bonjour,
Un CommaText pourrait aussi fonctionner

Code :

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

1
2
dativ_str_list := TStringList.create;
         dativ_str_list.Commatext:=dativ_praep;

je n'ai aucun mérite , je viens juste de l'utiliser pour une application

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var line : String;
    slline : TStringList;
begin
...
  slLine:=TStringList.Create;
 for line in memo2.lines do // << memo chargé à partir d'un memo2.lines.loadfromFile 
   begin
      slLine.CommaText:=line;
      .... 
      .....
   end;
 FreeAndNil(slLine);

note : espace et virgule sont considéré comme séparateur