Règles de surcharge avec overload ?
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 :
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
|
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; |
le message d'erreur est :"la déclaration de 'getFromRegistre' diffère de la déclaration précédente".
Comment peut-on faire alors pour surcharger dans ce cas la ?
merci
