Placer la valeur d'un champ dans TEditRésolu

Question

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

gpletinckx · Accepted Answer

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

Placer la valeur d'un champ dans TEdit

1 réponse

Votre réponse

Discussions similaires