overload ...problem

Dans mon programme principal j'utilise l'instruction suivante :

Code:

---

1 2 3

isStrType := DefTypeNameMySQL(MyTableMySQL2.FieldDefs[i]);

---

et dans une unite annexe le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

//For MySQL function DefTypeNameMySQL (fdef: TFieldType): string; begin case fdef.DataType of ftString: Result := 'string'; ftSmallint: Result := 'number'; ftInteger: Result := 'number'; ftWord: Result := 'string'; ftBoolean: Result := 'string'; ftFloat: Result := 'number'; ftCurrency: Result := 'number';   ftDate: Result := 'date'; ftTime: Result := 'time'; ftDateTime: Result := 'datetime';   // etc .... else Result := 'undefined'; end; // case end;

---

qui me génère le message d'erreur suivant :

La déclaration pécedente de 'DefTypeNameMySQL' n'a pas été marque de la directive 'overload'

Que doit je faire pour y remedir à ce message d'ereur :?:

Merci d'avance pour votre aide. :wink:

Voici quelques informations supplementaires ...

J'oublié de dire que MyTableMySQL2 est un composant MyDAC

Info sur TMyTable:

Citation:

---

Unit

MyAccess

Description

Use TMyTable to access data in a table. TMyTable provides properties and methods to gain direct access to records and fields in an underlying server database without writing SQL statements.

See also

TMyQuery

TCustomMyTable

TCustomMyDataSet

Working with master/detail relationships

---

http://www.longwheels.com/d7/15.jpg

J'ai collé un overload à la fin de l'instruction ....

et voila plus de problème avec le message d'erreur d'overload.

Code:

---

function DefTypeNameMySQL (fdef: TFieldType): string; Overload;

---

Par contre avec l'instruction suivante:

Code:

---

case fdef.DataType of

---

je ceçoit un nouveau message d'erreur disant :

Type Record, Objet ou Class requis.


Quel est le problème?

retire .DataType ; TFieldType est un type énuméré...

cmen76, Merci pour ta réponse :wink:

Quand j'écrit :

Code:

---

case fdef of

---

je reçoit le message d'erreur suivant:

Type ordinal requis.

Donc ce que tu propose ne resout pas mon problème.

Comment faire ... :?:

tu me confirmes que fdef est de type TFieldType ?

réponse à cmen76 :

BINGO cmen76 tu à trouvé l'erreur! :D

Je me suis trompé dans l'écriture du code :oops:

Le bon code est les suivant :

Code:

---

function DefTypeNameMySQL (fdef: TFieldDef): string;

---

Du coup j'ai pu également enlever l'instruction overload et tout est rentre dans l'ordre.

Merci beaucoup pour ton aide. :wink: