Discussion :

[bremer]

Bonjour,

J'utilise avec une stringlist la propriété Value :

Retour_Fonction.Add('Fichier_a_Traiter=nom1');
Retour_Fonction.Add('Erreur=0');

Retour_Fonction.Add('Fichier_a_Traiter=nom2');
Retour_Fonction.Add('Erreur=1');

Pratique pour retouver la valeur de fichier_a_traiter en faisant :

retour_fonction.values['fichier_a_traiter']

JE récupère nom1 mais comment faire pour récupérer nom 2

Merci d'avance,

Laurent

[peter27x]

Deux possibilités mais y'a peut être d'autres solutions plus appropriées:

1) tu te fais une boucle sur la propriété names[index] et quand tu as "nom_fichier" ben tu récupères le nom du fichier...

2) tu utilises deux stingList, une contenant les noms des fichiers, l'autres les erreurs... quand tu ajoutes un fichier et son erreur, tu le fais au même indice dans tes deux stringList évidemment donc ensuite, tu peux parcourir tes noms de fichiers tranquillement et lire en parallèle leurs codes erreurs respectifs...

Tu vois ce que je veux dire ?

[Paul TOTH]

Bonjour,

J'utilise avec une stringlist la propriété Value :

Retour_Fonction.Add('Fichier_a_Traiter=nom1');
Retour_Fonction.Add('Erreur=0');

Retour_Fonction.Add('Fichier_a_Traiter=nom2');
Retour_Fonction.Add('Erreur=1');

Pratique pour retouver la valeur de fichier_a_traiter en faisant :

retour_fonction.values['fichier_a_traiter']

JE récupère nom1 mais comment faire pour récupérer nom 2

Merci d'avance,

Laurent

tu ne peux pas. Values[] te retournera la première ligne (je pense) et ignorera l'autre.

je pense que la meilleur solution est de repenser la façon dont tu retournes tes informations.

[Cl@udius]

tu ne peux pas. Values[] te retournera la première ligne (je pense) et ignorera l'autre.

Exact. Values utilise la fonction TStrings.IndexOfName qui ramène uniquement la 1° occurrence de Name.

Tu peux faire simplement ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure FilterName(const AName: string; Source, Dest: TStrings);
var
  I: Integer;
begin
  for I := 0 to Source.Count - 1 do
  begin
    if Source.Names[I] = AName then
      Dest.Add(Source.ValueFromIndex[I]);
  end;
end;

@+ Claudius

[peter27x]

Exact. Values utilise la fonction TStrings.IndexOfName qui ramène uniquement la 1° occurrence de Name.

Tu peux faire simplement ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure FilterName(const AName: string; Source, Dest: TStrings);
var
  I: Integer;
begin
  for I := 0 to Source.Count - 1 do
  begin
    if Source.Names[I] = AName then
      Dest.Add(Source.ValueFromIndex[I]);
  end;
end;

@+ Claudius

Voilà, c'est ce que je proposais dans ma solution n°1 un peu plus haut

[Cl@udius]

Voilà, c'est ce que je proposais dans ma solution n°1 un peu plus haut

1) tu te fais une boucle sur la propriété names[index] et quand tu as "nom_fichier" ben tu récupères le nom du fichier...

C'est exactement ça.

[peter27x]

C'est exactement ça.

Mais ceci dit, je pense que la solution n°2 (voir un peu plus haut) est la plus simple et la plus facile tant à mettre en place qu'à utiliser.