Discussion :

[gskoala]

Bonjour à tous,

J'aimerai tester le type d'un champs.

Voici mon code :

Code :

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

1
2
 
if ftFloat = DataModule_u.MyDM.QrySrcFact.FieldDefList.FieldDefs[i].DataType then

Mais sa ne passe pas.

Merci d'avance.

[Le Lézard]

Voici la bonne syntaxe :

Code :

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

if DataModule_u.MyDM.QrySrcFact.Fields[i].Datatype = [ftFloat] then

ftFloat étant un élément de TFieldType qui est de type énumération...

[cyril]

Re,

Cela fonctionne très bien chez moi.
As-tu un message d'erreur?

[gskoala]

il bug sur le .Data

[gskoala]

et il parle de type incompatible

[gskoala]

voici le code :

Code :

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

1
2
 
if DataModule_u.MyDM.QrySrcFact.Fields[i].DataType = [ftCurrency] then

Message : types incompatible.

[cyril]

J'ai testé en rajoutant dans la boucle faite au topic précedent sur la recherche du nom du champ, le code suivant: .

Code :

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

if ftString = Query.FieldDefList.FieldDefs[CptChamp].DataType then

Je n'ai pas eu de message de type incompatible.
Le DataType est de type TFieldType et le ftString est de même type.
Cela fonctionne.
J'ai Delphi7

[Le Lézard]

Voici ce que j'utilise tous les jours (enfin, presque...) pour gérer l'affichage des résultats (alignement)

Code :

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

        If Qry2.Fields[ii].DataType in [ftBCD,ftCurrency,ftInteger,ftFloat] then

et ça fonctionne parfaitement.

[gskoala]

oui sa marche sans les crochets.

Merci beaucoup.

[mariustrezor]

N'oubliez pas de rajouter le tag [ RESOLU] pour nous permettre d'identifier rapidement les collègurs qui ont encore besoin d'aide afin que nous puissons apporter notre aide.
Bonne programmation!