Discussion :

[Didier100]

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

Code :

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

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

et dans une unite annexe le code suivant :

Code :

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

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.

[Didier100]

Voici quelques informations supplementaires ...

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

Info sur TMyTable:

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

[Didier100]

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

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

Code :

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

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

Par contre avec l'instruction suivante:

Code :

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

case fdef.DataType of

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

Type Record, Objet ou Class requis.


Quel est le problème?

[cmen76]

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

[Didier100]

cmen76, Merci pour ta réponse

Quand j'écrit :

Code :

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

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 ... :

[cmen76]

tu me confirmes que fdef est de type TFieldType ?

[Didier100]

réponse à cmen76 :

BINGO cmen76 tu à trouvé l'erreur!

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

Le bon code est les suivant :

Code :

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

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.