Dans mon programme principal j'utilise l'instruction suivante :
et dans une unite annexe le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 isStrType := DefTypeNameMySQL(MyTableMySQL2.FieldDefs[i]);
qui me génère le message d'erreur 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;
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.![]()
Partager