Discussion :

[chmaichel]

bonjour:
je voudrais copier des differentes parties d'une chaine dans un tableau .
Ces différentes parties sont délimitées pas un caractere special ($) , donc je voudrais chercher les occurences de ce caractere dans la chaine pour extraire à chaque fois les sous chaines qui se trouvent entre les deux $ consecutifs.
Mais le problemes c'est que je n'ai as trouvé de fonctions qui me donne toutes les occurences du $ et ni une fonction qui copie une sous chaine dans un tableau avec la position seulement (ne connaissant pas les differentes sous chaines).
Merci de m'aider

[TicTacToe]

Salut,

Ceci pourrait faire l'affaire par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  LChaines: TStringList;
begin
  LChaines := TStringList.Create;
  try
  LChaines.Text := StringReplace( 'LACHAINE', '$', #13#10, [ rfReplaceAll ] );
  // Traitement sur LChaines
  // LChaines[ x ] contient la sous-chaines de rang x
  finally LChaines.Free; end;
...

[chmaichel]

est ce que je peux te demanderelle fait quoi excatement la fonction (j'ai pas compris le #13 et #10 ils servent à quoi) , en plus moi je veux copier vraiment toutes les sous chaines en tre deux $ consécurifs.
merci

[TicTacToe]

Si ta chaine principale est:

LaChaine = 'chaine1$chaine2$chaine3...'

Le stringreplace remplace le '$' par des retour chariots #13#10.

L'affectations dans un TStringList, va considérer ces retours chariots comme une ligne suivante dans la liste.
--> LChaines[0] va contenir 'Chaine1'
--> LChaines[1] va contenir 'Chaine2' etc...

(d'ailleurs, me demande si le #10 est réellement nécessaires, mais j'ai l'habitude de le mettre, dans certains composants je crois, le retour chariot est uniquement #13).

[chmaichel]

ah bah ça me va très bien .
Merci beacoup

[chmaichel]

Mais est ce que j'utilise lz type table ou bien list comme tu as fait sachant uqe j'aurai besoin de la longueur de la liste ou du tab et de tester si ses élément appartiennent à une autre chaine