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.