Bonjour chers amis delphinautes.
Je voudrais savoir s'il est possible d'utiliser la commande "Overload" lors des déclarations
des fonctions d'une Unité créee avec delphi 10.
Quand je tente voici l'erreur envoyée :
[dcc32 Erreur] Unit_Nbre.pas(16): E2037 La déclaration de 'Ch_en_Nbre' diffère de la déclaration précédente

Voici le code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
.
.
.
.
.
 
Function Ch_en_Nbre(ST : String ) : Int64; Overload;
Function Ch_en_Nbre(ST : String ) : Double;  Overload;
........
Function Ch_en_Nbre(ST : String ) : Double; OverLoad;
Var
 i, Lg, Code : Integer;
 CH : String;
 Begin
  Lg:=Length(ST);
  CH:='';
  For i:=1 To Lg Do
   Begin
    If ST[i] in ['0','1','2'..'9' , ',' , '.'] then
     Begin
      If ST[i]=',' Then ST[i]:='.';
      CH:=CH+ST[i];
     End;//If ST[i] in ['0','1','2'..'9',',','.'] then
   End; // For
   Val(CH,NB1,Code);
   Result:=NB1;
 End;
 
Function Ch_en_Nbre(ST : String ) : Integer;  OverLoad;
Var
 i, Lg, Code : Integer;
 CH : String;
 Begin
  Lg:=Length(ST);
  CH:='';
  For i:=1 To Lg Do
   Begin
    If ST[i] in ['0','1','2'..'9' , ',' , '.'] then
     Begin
      If ST[i]=',' Then ST[i]:='.';
      CH:=CH+ST[i];
     End;//If ST[i] in ['0','1','2'..'9',',','.'] then
   End; // For
   Val(CH,NB1,Code);
   Result:=NB1;
 End;
Merci pour l'assistance.