Discussion :

[Chakalaka]

Salut,

Je suis vraiment désolé pour la question bête que je vais poser

Chaque chaine de ma TStringList est composée de 7 cases comme suit:
A, B, C, D, E, F, G

Quand j'affiche le contenu d'une chaine à l'aide du membre Text j'ai le résultat suivant 00001000045
Ma question est comment accèder à chaque case de ma TStringList ?

J'ai essayé un

Code :

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

MaTStringList.Names[5]

j'ai l'erreur suivante

Project projet.exe raised exeption class EStringListError with message 'List index out of bounds (5)'.

Idem pour

Code :

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

MaTStringList.ValueFromIndex[2];

J'aimerais préciser qu ces erreurs n'apparaissent pas si je met [0]

Merci enormement pour votre aide

[alheuredudejeuner]

déjà il faut se placer sur l'élément de la stringlist qui intéresse

ensuite, c'est un texte

sur ce site :

http://delphi.developpez.com/faq/?pa...aracterechaine

André

[Chakalaka]

ensuite, c'est un texte

sur ce site :

http://delphi.developpez.com/faq/?pa...aracterechaine

André

Merci infiniment pour ta réponse mais je pense que je ne me suis pas bien expliqué

En effet, ma TStringList contient des chaines chaque chaine contient ses propres enregistrements.
Je m'explique à l'aide d'un exemple, J'ai une TStringList contenant la liste de certains pays, et dans chaque pays on a une liste de départements (plusieurs champs) associés. Donc si je fais MaTStringList[0] je vais avoir le premier pays uniquement or que moi je veux accèder à tel champ de tel pays

Merci

[Droïde Système7]

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
procedure TForm1.Button7Click(Sender: TObject);
Const
  Path = 'C:\Temp\toto.txt';
var
  StList: TStringList;
  i: Integer;
  Line : String;
begin
  if FileExists(Path) then
  begin
    StList := TStringList.create;
    Try
      StList.LoadFromFile(Path);
      for i := 0 to StList.Count - 1 do
      Begin
        //ShowMessage(StList.Strings[i]);
        ShowMessage(StList.Strings[i]);
        Line := StList.Strings[i];
        ShowMessage(Line[3]); // <= Exemple sur troisième lettre de chaque ligne
      end;
    Finally
      StList.free;
    end;

  end;
end;

@+

[Chakalaka]

Merci pour la réponse
Malheureusement , ça ne fait pas mon affaire puisque cet exemple me retournerai caractère par caractère. Je voudrais préciser à l'aide du membre Namesle nom de mon champs (exemple MaTStringList.Names('Departement') du permier pays) Je ne sais vraimet pas comment utiliser values, names, indexOfName .... pour ce genre de chaine 2D

Merci encore une fois

[Droïde Système7]

Ben voui mais voici une illustration qu'une image vaut mille mots...

Si tu prends le temps de nous donner un exemple précis et clair... notre réponse en sera de même.

Donc donne deux ou trois exemples !

@+

[Chakalaka]

Vos souhaits sont des ordres

J'ai une TStringList contenant des équipes de travails (chaque ligne est une équipe de travail), chaque équipe est caractérisé par un nombre de champs dans mon cas j'ai 7: A, B, C, D, E, F, G

Actuellement dans ma DB j'ai une seule équipe de travail (Finances) si je veux afficher tous les détails de cette équipe je fais

Code delphi :

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

1
2
 
ShowMessage(MaTStringList.text);

J'ai l'affichage suivant
00001000045 (Notez le code de couleur le champ G Contient l'information 00045)

J'essaye en vain d'extraire le contenu du dernier champ (le 00045)

[Droïde Système7]

Autrement dit, tu souhaites obtenir les cinq derniers caractères ?

[Chakalaka]

Autrement dit, tu souhaites obtenir les cinq derniers caractères ?

C'est trop risqué le hardcodé comme ça il faut vraiment que j'ai accès à ces champs de manière individuelle puisque je compte faire des test (if) dessus

[Droïde Système7]

Code :

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

Line := StList.Strings[i];

De cette façon tu accèdes à chaque ligne de ta StringList.

Tu peux alors tester tout ce que tu souhaites.

@+

[Charly910]

Bonjour,

comme dit Droïde, tu récupère chaque ligne que tu décodes

Il faut que la structure de chaque ligne soit fixe (toujours le même nombre de caractères pour A, B, C, ... )

Sinon, si le nombre de caractères de A, B, C, ... est variable tu ne peut rien faire. Tu ne pourras jamais récupérer la valeur de G

Cordialement

Charly

[Chakalaka]

En bout de ligne oui je n'ai qu'à récupérer mes strings dans un autre string que je vais traiter par la suite.

La raison pour laquelle je ne pourrais pas utiliser de values, names, indexOfName ... est que mes équipes de travail sont des string et pas des TSringList (Le code existant a été fait ainsi), ainsi mes MaTStringList[0] me retournera un string qui doit être traiter comme un string

Merci énormement pour votre aide