Discussion :

[davos56]

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

[Fabrice ROUXEL 1]

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

[philnext]

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

[aityahia]

Tu fait

Code :

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

Malist.Items.Add('John');

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

[Fabrice ROUXEL 1]

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

[davos56]

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 :

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

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 :

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
 
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!

[aityahia]

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 ?

[davos56]

Pour informations j'utilise DELPHI 7 professionnel!

[ShaiLeTroll]

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

[davos56]

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

[aityahia]

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.