J'ai besoin d'aides sur les classes

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:

---

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

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:

---

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:

---

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

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.