Discussion :

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

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.

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

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

1
2
3
4
 
begin  
  Ch_en_Nbre('12');
end;

par contre tu peux faire ceci par exemple

Code :

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

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;

[sergio_is_back]

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.

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

[Paul TOTH]

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 :

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

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 :

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

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 :

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

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

[delphiketou]

Merci à tous.

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.

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.

[Paul TOTH]

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 :

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

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;

[ALWEBER]

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

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

1
2
3
function func(A, B: integer): Integer; inline;
...
  c := sum(a, b);

func sum ?

[Paul TOTH]

func sum ?

oui, c'est corrigé

[delphiketou]

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