Fonction OverLoad dans une Unité

Version imprimable

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:

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.

27/06/2020, 16h04
Paul TOTH
il n'est pas possible de faire des overload sur le type de résultat...je le sais car j'ai moi même rencontré ce problème :)

une raison évoquée c'est qu'il ne serait pas possible de savoir quelle fonction appeler sur ce code...mais je trouve cela limite
Code:

1 2 3 4 begin Ch_en_Nbre('12'); end;
par contre tu peux faire ceci par exemple
Code:

1 2 3 Function Ch_en_Nbre(ST : String; var NB : Int64): Boolean; Overload; Function Ch_en_Nbre(ST : String; var NB : Double): Boolean; Overload;

Citation:
Envoyé par delphiketou
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:

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.
Pourquoi recoder ce qui existe déjà dans Delphi :

Les fonctions StrToInt, StrToIntDef, StrToFloat, StrToFloatDef de l'unité SysUtils font déjà tout ça... et sans doute de façon plus optimisée que tes exemples....
Faut faire appel à l'aide contextuelle dès fois...

j'ai voulu répondre sur la question et non sur le fond

mais tu as raison, même si on aurait pu vouloir créer une fonction uniquement Ch_en_Nbre comme point d'entrée...Ce qui peut se faire sans coût supplémentaire avec la directive inline.
Code:

1 2 3 4 5 function Ch_en_Nbre(const Str: string; var NB: Integer): Boolean; overload; inline; begin Result := TryStrToInt(Str, NB); end;
avec au passage une chaîne constante pour optimiser l'appel

après je déteste personnellement les overload et ne les utilise que pour des correctifs...le dernier en date était celui-ci
Code:

1 2 3 function StartTransaction(AMode: TTransactionMode; AReadOnly : Boolean = False): TFBTransaction; overload; function StartTransaction(AReadOnly : Boolean = False; AMode: TTransactionMode = TTransactionMode.ReadCommited; ANoWait: Boolean = True): TFBTransaction; overload;
c'est une fonction que j'utilise pour démarrer une transaction Firebird, la ligne du haut est la fonction telle que je l'ai créée initialement...et je me suis rendu compte par la suite que dans 99% des cas la transaction est en ReadCommited et que c'est plus souvent l'accès ReadOnly que j'active, j'ai donc inversé les paramètres et pour ne pas casser le code existant j'ai créé un overload...au fil du temps, j'ai viré tous les appels dans la première forme et supprimé l'overload.

d'ailleurs la dernière version de Delphi utilise l'inférence de type pour typer les variables en ligne...mais là il aurait du mal
Code:

1 2 3 var i := StrToInt('12'); // Integer var x := Ch_En_NBre('12'); // ?

09/07/2020, 20h32
delphiketou

Merci à tous.

Citation:

Pourquoi recoder ce qui existe déjà dans Delphi :

Les fonctions StrToInt, StrToIntDef, StrToFloat, StrToFloatDef de l'unité SysUtils font déjà tout ça... et sans doute de façon plus optimisée que tes exemples....
Faut faire appel à l'aide contextuelle dès fois...

L'idée qui me pousse à recoder ce qui est bien fait déjà est que je veux créer un seul modele de TEdit pour saisir une chaine de caractère, un entier, un reel et même un (TMoney).

Quel peut être alors la bonne démarche. Je pense même aller loin pour céer un composant perso TmonEdit qui sera à l'image de ce modèle.

Citation:

mais tu as raison, même si on aurait pu vouloir créer une fonction uniquement Ch_en_Nbre comme point d'entrée...Ce qui peut se faire sans coût supplémentaire avec la directive inline.

Merci à Paul Toth. mais je n'ai pas compris l'usage de inline dont tu parles. Bien vouloir m'en donner d'autres exemples simples avec un peu d'explication pour ma compréhension.
Est-ce que cela peut m'aider dans mon cas présent.

Une fois encore merci à tous.
09/07/2020, 20h54
Paul TOTH
Citation:

Envoyé par delphiketou

Merci à Paul Toth. mais je n'ai pas compris l'usage de inline dont tu parles. Bien vouloir m'en donner d'autres exemples simples avec un peu d'explication pour ma compréhension.
Est-ce que cela peut m'aider dans mon cas présent.

'inline' est un mot clé qui remplace l'appel à une fonction par une injection du code de la fonction là où elle est appelée
Code:

1 2 3 4 5 6 7 8 9 10 function sum(A, B: integer): Integer; inline; begin Result := A + B; end; var a,b,c: Integer; begin c := sum(a, b); // équivalent à c := A + B; sans appel de fonction end;
10/07/2020, 07h29
ALWEBER
Citation:
Envoyé par Paul TOTH

'inline' est un mot clé qui remplace l'appel à une fonction par une injection du code de la fonction là où elle est appelée

Code:

1 2 3 function func(A, B: integer): Integer; inline; ... c := sum(a, b);
func sum ?
10/07/2020, 08h33
Paul TOTH

Citation:

Envoyé par ALWEBER

func sum ?

oui, c'est corrigé :)
13/07/2020, 12h55
delphiketou

Merci à Paul Toth.
Je vais faire des recherches pour mieux appréhender ma connaissance sur inline.
Merci et à bientôt.