Discussion :

[zizo89]

bonjours chères monsieurs
Je veux faire une classe qui contient seulement une fonction s'appelle factorielle j'ai le code de la fonction mais j'ai pas pu faire une classe qui fonctionne bien si on l'appelle avec la clause uses en delphi 7....
le code de factorielle est le suivant:
{fonction qui calcule le factorielle d'un entier x donnée}

Code :

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

1
2
3
4
5
6
7
8
 
Function Factorielle(x:integer):longint;stdcall;export;
begin
if x=0 then
result:=1
else
result:=x*Factorielle(x-1);
end;

Si vous pouvez m'aider avec un code source de la classe
Merci d'avance...

[Cl@udius]

Salut

J'ai l'impression que tu confonds classe et unité. Ce sont les unités que l'on précise dans la clause uses.


Tu créés une unité (Unit2 dans l'exemple) comme ceci:

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
 
unit Unit2;
 
interface
 
// Rendre la fonction publique
function Factorielle(x: Integer): LongInt;
 
implementation
 
function Factorielle(x: Integer): LongInt;
begin
  if x = 0 then
    result := 1
  else
    result := x * Factorielle(x - 1);
end;
 
end.

Ensuite tu peux appeler ta fonction Factorielle depuis une autre unité en incluant Unit2 dans les uses:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
implementation
 
{$R *.dfm}
 
uses Unit2;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Factorielle(3)));
end;

@+ Claudius

[sjrd]

Je vois pas pourquoi tu cherches à faire une classe pour contenir cette fonction. C'est typiquement le genre de fonctions qu'on ne met pas dans une classe.

D'ailleurs, pourquoi stdcall et pourquoi export ?

Décris plus précisément ton problème, en pensant à ceux qui te lisent. Nous on ne connaît rien du reste de ton programme, ni du contexte, donc tu dois expliquer clairement ton problème et son contexte.