Discussion :

[trikker]

Bonjour a tous,

Je suis actuellement en train de chercher une méthode pour effectuer un traitement sur une chaine de caractère !

Exemple : ‘Emmanuel ; Pierre ; Voiture’

L’objectif de ce traitement, avec un tableau, de mettre ‘Emmanuel’ , ‘Pierre’, ‘Voiture’ dans différentes colonnes de mon tableau en supprimant le délimiteur ‘ ;’

Je suis prêt à recevoir toute piste !

Merci de votre aide !

PS: Sachant que j’ai une fonction qui me permet de compter le nombre de délimiteur ( ; )

Code :

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

Function Compte(Const SubStr: String;Const s:String):Integer

[zemeilleurofgreg]

Bonjour,

il te suffit de parcourir la chaine 1 lettre à la fois (dans une boucle) et lorsque tu rencontre un ";" c'est que tu arrives à la fin de la chaine.

[trikker]

Ouai mais je ne voi pas comment je peux l'ecrire ?
Il faut que j'utilise des fonction ?

[popo]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
j := 1;
Place :=0;
for i:=0 to Length(MaChaine) - 1 do
begin
 if (MaChaine[i] = ';') then
 begin
   StTemp := Copy(MaChaine,Place,i - 1);
   Place := i;
 
   // Pour un array
   SetLength(MonTableau,j);
   MonTableau[i] := StTemp;
 
  //Pour un StringGrid (j'ai mis 1 pour l'exemple)
  MonStrGrid.Cells[j,1] := StTemp;
  Inc(j); 
 end;
end;

Edit : Code écrit à la va vite à vérifier mais sur le principe c'est ça

[trikker]

Je te remercie beaucoup je vais tester sa a 14h !

[ShaiLeTroll]

ou tout simplement avec une TStringGrid !

Code :

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

1
2
   StringGrid.rows[0].Delimiter := ';';
      StringGridCSV.rows[0].DelimitedText := 'Emmanuel ; Pierre ; Voiture';

[Cl@udius]

Salut

L’objectif de ce traitement, avec un tableau, de mettre ‘Emmanuel’ , ‘Pierre’, ‘Voiture’ dans différentes colonnes de mon tableau en supprimant le délimiteur ‘ ;’

Comment est défini le tableau destiné à recevoir ces valeurs ?

[trikker]

C'est un Grid !