Placer la valeur d'un champ dans TEdit

Résolu
Signaler
Messages postés
40
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
3 août 2010
-
Messages postés
40
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
3 août 2010
-
Bonjour,

J'utilise Oracle 8 et Delphi 7.

J'ai écrit un sql dans le code par sql.Text := ...
Ce sql change de la façon suivante:

SetLength(Test, 2) ;
Test[0] := 'VIC_PHYS_DAT_BIRTH' ;
Test[1] := 'VIC_PHYS_DEATH' ;
For I := 0 To 1 Do
Begin
With QDate Do //Edit du sql Date
Begin
SQL.Text := 'SELECT ' + (Test[I]) + ' ' ;
SQL.Add(' FROM TCAL_VIC_PHYS') ;
SQL.Add(' WHERE VIC_PHYS_YEAR :TestA AND VIC_PHYS_ORDER :TestB') ;
SQL.Add(' AND VIC_PHYS_CODE_PROV :TestC AND VIC_PHYS_VIC_NUM :TestD') ;
ParamCheck := True ;
End ;

Je veux placer la valeur de QDate(Test[I]).AsString dans un TEdit et je ne sais pas comment faire.

Cela doit correspondre à:
Edit10.Text := QDateVIC_PHYS_DAT_BIRTH.AsString ;
et
Edit10.Text := QDateVIC_PHYS_DEATH.AsString ;

Comment faire?

Bien à vous,

G. PLETINCKX

1 réponse

Messages postés
40
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
3 août 2010

La solution m'a été donnée par http://www.developpez.net/forums/u87426/cl-udius/

Edit10.Text := DateTimeToStr(QDate.Fields[0].AsDateTime);

G. PLETINCKX