BCB6 Probleme avec TVarRec

Bonjour,
je liste le valeurs d'une basse de données

lorsque celles ci ont des champ de type chaine J'ai un pantage

Comment alimenter un TVarRec avec des chaines ?

voici un bout de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
TVarRec *pEnreg=new TVarRec(FieldsCount);
 
       pDs->First(); // pointeur sur un DataSet
 
       while(!pDs->Eof){ // on parcour tous les ligne(enreg)
 
 
                  //on liste cham a champ 
                    for(int i=0;i<FieldsCount;i++){
 
                    //pEnreg[i].VType=pDs->Fields->Fields[i]->DataType;
 
 
                     // plante quand c'est un chaine
                      pEnreg[i]=pDs->Fields->Fields[i]->Value;
                }
 
                pCache->AppendRecord( pEnreg,FieldsCount);
 
                pDs->Next();
 
 
       }

Merci par avance