Salut,
Je souhaiterais concevoir une unité indépendante comprenant plusieurs procédures et fonctions "static" (qui n'ont pas besoin d'instance).
Pour les procédures et fonctions de classe, il n'y a aucun problème pour surcharger, l'utilisation d'introduce, overload ou override (selon les cas) est simple.
Cependant, quand il s'agit de faire la meme chose sur procédures et fonctions non-instanciables, cela ne marche pas... Pourquoi ?
voici mon code :
le message d'erreur est :"la déclaration de 'getFromRegistre' diffère de la déclaration précédente".
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 unit uRegistre; interface uses Registry, Forms; function getFromRegistre(sKey,sName : string):string; function getFromRegistre(sKey,sName : string):integer;overload; implementation function getFromRegistre(sKey, sName : string):string; begin with TRegistry.Create do try OpenKey('\Software\'+Application.Title+'\'+sKey,True); Result := ReadString(sName); finally Free; end; end; function getFromRegistre(sKey,sName : string):integer; begin with TRegistry.Create do try OpenKey('\Software\'+Application.Title+'\'+sKey,True); Result := ReadInteger(sName); finally Free; end; end;
Comment peut-on faire alors pour surcharger dans ce cas la ?
merci
Partager