[Delphi 7][Dbase4] Comment récupérer le DataType des champs d'une table ?

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:

---

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:

---

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

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

Code:

---

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.

Salut

Citation:

---

Envoyé par alainvh

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

---

Alors peut-être comme ceci:

Code:

---

1 2 3 4 5 6

uses TypInfo;   // ...   ShowMessage(GetEnumName(TypeInfo(TFieldType), Ord(Table1.Fields[i].DataType)));

---

@+ Claudius

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

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:

---

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:

---

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

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

A la prochaine,
Alain