Probleme avec TList et Assing

Bonjour,
j'ai un Dbgrid , je veux copier les données d'une colonne d'un Dbgrid
dans un Tlist.Ces donnes sont de type int

Code:

---

1 2 3

TList *pListe=new TList; pListe->Assign(DbGPers->Columns[0].Items,laCopy ,pListe) ;

---

J'ai essaye ceci sans succès (j'ai seulement le premier message d'erreur a la compilation)

Code:

---

1 2	pListe->Items=DbGPers->Columns[0].Items;

---

Comment faire ?

Comment utilisez ceci par la suite ?

J'ai ces messages d'erreur

Citation:

---

[C++ Erreur] FormAnnuaire.cpp(265): E2193 Trop peu de paramètre dans l'appel à '_fastcall TDBGridColumns::GetColumn(int)'
[C++ Erreur] FormAnnuaire.cpp(265): E2034 Impossible de convertir 'TColumn *' en 'TList *'
[C++ Erreur] FormAnnuaire.cpp(265): E2342 Mauvaise correspondance de type dans le paramètre 'ListA' ('TList *' désiré, 'TColumn *' obtenu)

---

merci

Comme l'indique le second message d'erreur, les types ne sont pas compatibles (TColumn et TList).

Que souhaite tu récupérer? Les noms des champs?
Tu peux utiliser une boucle:

Code:

---

1 2 3 4 5 6 7

TStringList *liste=new TStringList(); for( int i=0; i< DbGPers->Columns->Count; i++ ) { liste->Add(DbGPers->Columns->Items[i]->FieldName ); } ShowMessage( liste->Text ) ; delete liste ;

---

Pour récupérer les données contenues dans ton DBGrid, il faut itérer sur le DataSet (Query, Table):

Code:

---

1 2 3 4 5 6 7 8 9

TStringList *liste=new TStringList(); Query->First() ; while( !Query->Eof ) { liste->Add( Query->FieldByName( "NOM_DE_CHAMP" )->AsString) ; Query->Next() ; } // Utilisation de la liste delete liste ;

---

Merci de ta réponse
Je pensais pouvoir copier les valeur de la premier colonne de mon dbgrid un comme ceci sans passer par un boucle

Un peu comme ceci Copie de ligne dans TMemo

Code:

---

Memo1->Lines->Assing(ComboBox->Items)

---

Je me suis inspiré de ton premier exemple pour adapter Assing
et copier le tout sans passer par un boucle

Code:

---

1 2	TStringList *liste=new TStringList(); liste->Assign(DbGPers->Columns->Items->FieldName);

---

$

j'ai cette erreur de compil, as tu une idée ? Assing doit être possible a utiliser mais comment ?

Citation:

---

[C++ Erreur] FormAnnuaire.cpp(263): E2034 Impossible de convertir 'const AnsiString' en 'TPersistent *'

---

Avec ton aide précieuse je me suis inspiré de ceci
je me sert d'un TClientDataSet ,cependant je désactive le contrôle DbGPers , le curseur de ma dggrid se déplace et je ne voie pas pourquoi ?

Code:

---

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

DbGPers->DataSource->DataSet->DisableControls(); TStringList *listePers=new TStringList(); DataModule1->CDSPers->First(); while( !DataModule1->CDSPers->Eof ) { listePers->Add((int) DataModule1->CDSPers->FieldByName( "ID_PERS" )->AsInteger) ; DataModule1->CDSPers->Next() ; } // Utilisation de la liste ShowMessage( listePers->Text ) ; delete listePers ; DbGPers->DataSource->DataSet->EnableControls();

---

encore merci pour tout