Discussion :

[Kara]

Bonjour,

Pour recupérer les valeurs différentes contenus dans un chaine de la forme

Code :

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

XX;125;une chaine de caractere

j'utilise cette fonction que j'ai trouvé sur le net :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
la procédure :
procedure TForm1.Split(const Delimiter: Char; Input: string;
  const Strings: TStrings);
begin
	Assert(Assigned(Strings)) ;
  Strings.Clear;
  Strings.Delimiter := Delimiter;
  Strings.DelimitedText := Input;
 
end;
 
 
utilisation
var
A: TStringList;
 
begin
	A := TStringList.Create;
 	try
    for i:=0 to ListBox1.Count-1 do
    begin
      Split(';', ListBox1.Items[i], A) ;
      for j:=0 to A.Count -1 do
      begin
      	ShowMessage(A[j]) ;
      end;
 
    end;
 	finally
   	A.Free;
 	end;
end;

Malheureusement elle ne gere pas les espace contenu dans une chaine (ici, "une chaine de caractere" me donne "une").

Y'a-t-il un moyen de modifier la fonction pour regler le probelem ou dois-je me resigner à en faire une autre avce mes mimines?

SI tel est le cas auriez vous un moyen simple de la faire.

Merci d'avance

[jmjmjm]

Regarde dans la FAQ a la rubrique traitement des chaines de caracteres et tu trouvera ceci Pos() et donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure TraitementChaine(Chaine:string);
var
position:integer;
i:byte;
begin
  repeat
    position:=Pos(';',chaine);
    ListBox1.Items.Add(copy(chaine,1,position-1));
    chaine:=copy(chaine,position+1,Length(chaine));
  until Pos(';',chaine)=0;
ListBox1.Items.Add(copy(chaine,1,Length(chaine)));
end;

Voila qui devrait faire l'affaire !
Sa rempli la ListBox des different champ!

[jmjmjm]

Bon developpement et Pense a ajouter si c'est bon!