Probleme avec une TStringList

Bonjour
Voila j'ai un petit probleme avec mes TStringList.
Lorsque je réalise des ajouts dans ma liste via la fonction add, le premier caractere qui est passé en paramètres en supprimer a chaque fois.
J'aimerais savoir pourquoi?

Par exemple si je ve ajouter 'john' dans ma liste, lorsque je veux afficher le contenu de ma liste, je n'es que 'ohn' qui s'affiche!!

Si quelqu'un a une idée je suis preneur!!!

Cordialement

étrange:koi:
Fermes Delphi, relances un nouveau projet et refais un test tout simple pour voir...

Et si tu passes le code pour qu'on regarde c'est plus facile.

Tu fait

Code:

---

Malist.Items.Add('John');

---

et ta ohn comme résultat j'aimerai bien voirs sa .
envoi un bout de ton code.

A mon avis c'est à l'affichage que tu "loupes" le premier caractere.
Postes la procedure d'affichage.

Alors voila comment je remplis mon TStringList:
En fait je recupere des informations d'une base de données access et je veux afficher les champs des tables. J'ai un'e methode qui me recupere les champs et me les insert dans un TStringList.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

//============================================================================== //Liste l'ensemble des champs pour l'une des tables de la base de données. //On passe en paramatres le nom de la table //on retourne un tableau contenant la liste des champs function TConnexionBDD.ListeChamps(Table : string) :TStringList; var tmp : TStringList; begin tmp := TStringList.Create; retCode := SQLGetColumnsName(hdbc,Table,tmp); if SQLSUCCEEDED(retCode) then Result := tmp;   end;

---

Pour la liste, j'ai un grid dans lequel j'ajoute les valeurs en parcourant le TStringList:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

with FA04_VoirTable.GridStructureTable do begin RowCount := listeChamp.Count +1; ColCount := 3; Cells[0,0]:='n°'; Cells[1,0]:='Nom du champ'; Cells[2,0]:='Type de données';   for i:=0 to listeChamp.Count-1 do begin Cells[0,i+1] := intToStr(i); ShowMessage(listeChamp.ValueFromIndex[i]); Cells[1,i+1] := listeChamp.ValueFromIndex[i]; Cells[2,i+1] := listeTypeChamp.ValueFromIndex[i]; end;   AutoSize := true; end;

---

Comme vous pouvez voir, je fais un showMessage() pour savoir si le premier caractere est tronqué pendant l'insertion ou à l'affichage!

vous utiliser la version personnel de delphi ?

bon pour la StringList je vous conseil de déclarer une variable global que vous allez intialiser dans votres fonction.

je pense que c'est lors de la récupération des données que vous avez un problemes
je vais voir votres code ?

Pour informations j'utilise DELPHI 7 professionnel!

utilise Strings[i] et non pas ValueFromIndex[i]

l'un renvoie la chaine entière, l'autre renvoie la parti value dans la chaine, name=value

MERCI!!!! Beaucoup probleme resolu!
solution étant : Strings[i]

elles est tres délicate la methode que vous utiliser pour accéder au données sur delphi 7 vous avez une panoplie de composant qui vous permet accéder au données.