Discussion :

[alainvh]

Bonjour à tous.
J'ai bien cherché, pas trouvé, donc je craque et fais à vous (d'avance merci).
Quand je crée une structure de table, je fais appel à AddFieldDef. Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
....
with AddFieldDef do
   begin
      Name := 'Espece';
      DataType := ftString;
      Size := 25;
   end;
....

Pas de problème.
En revanche, je cherche la fonction réciproque, c'est à dire le moyen de connaître les propriétés des champs d'une table. Exemple :

Code :

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

1
2
3
4
5
6
 
....
ShowMessage(Table1.Fields[0].FieldName); // là, ça marche
ShowMessage(Table1.Fields[0].DataType); // là, ça ne marche pas : TDataType <> TString
ShowMessage(IntToStr(Table1.Fields[0].DataSize)); // là, ça marche 
....

En fait, il me trouver un remplaçant à mon invention : TypeToStr

Amicalement.
Alain

[alainvh]

Peut-être dois-je tester tous les types existants de la manière suivante ?

Code :

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

1
2
3
4
5
6
 
...
if Table1.Fields[i].DataType=ftString then ShowMessage('String');
if Table1.Fields[i].DataType=ftInteger then ShowMessage('Integer');
if Table1.Fields[i].DataType=ftDate then ShowMessage('Date');
...

En fait, je cherche donc une méthode plus élégante que celle que je propose ci-dessus.

[Cl@udius]

Salut

En fait, je cherche donc une méthode plus élégante que celle que je propose ci-dessus.

Alors peut-être comme ceci:

Code :

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

1
2
3
4
5
6
 
uses TypInfo;
 
// ...
 
ShowMessage(GetEnumName(TypeInfo(TFieldType), Ord(Table1.Fields[i].DataType)));

@+ Claudius

[alainvh]

Bonjour Claudius,
Une fois de plus merci, et surtout bravo : ça, c'est du code, et non de la bidouille (il n'y a que ça que je sache faire !).
Si je comprends bien, GetEnumName (dont je ne soupçonnais pas l'existence) va chercher dans TFieldType le nom (ex : ftString) qui correspond au code ordinal du Datatype du champ i (TFieldType serait donc un genre de tableau associant à chaque type un code numérique, par exemple : ftString->0, ftInteger->1,...).
J'en ai encore, du chemin à parcourir, n'est-ce pas ?
Amicalement,
Alain

[Cl@udius]

Salut

TFieldType est un type énuméré (ou énumération) qui définit un ensemble ordonné de valeurs, en énumérant les identificateurs désignant ces valeurs. Les valeurs n'ont pas de signification propre. (extrait de l'aide de Delphi).

TFieldType étant définit ainsi:

Code :

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

1
2
 
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ...);

ftUnknown possède la valeur ordinale 0, ftString 1, etc...

GetEnumName renvoit donc le nom correspondant à la valeur ordinale que tu lui transmet.
Il existe la fonction inverse GetEnumValue:

Code :

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

1
2
3
 
 I := GetEnumValue(TypeInfo(TFieldType), 'ftString');
 // I est égal à 1

Tout ceci fait appel aux RTTI. sjrd ou Laurent Dardenne (je ne sais plus) a écrit un tuto très complet à ce sujet.

@+ Claudius

[alainvh]

Merci pour la leçon, Claudius.
Bonne journée.

A la prochaine,
Alain