کمک در جهت ایجاد کلاس در دلفی

[mamadmgp]

سلام
من چند تا تمرین در تحت زبان دلفی دارم که باید انجام بدم که مربوط به فاکتوریل میشه
مثلا محاسبه N فاکتوریل و فاکتوریل N تقسیم بر N-M و همچنین فاکتوریل M به توان N
که من در انجام این ها مشکلی ندارم . چون تابع فاکتوریل رو بلدم و به این صورت می نویسمش اما مشکل اینه که گفتن این ها در قالب کلاس باشه . من اینجا رو مشکل دارم خواستم کمکم کنید که روند ایجاد کردن یک کلاس چطوریه و چطور باید اینا رو تو یه کلاس قرار بدم
ممنون



function Factorial(N: Byte): Int64;
var
K: Integer;
begin
Result := 1;
if (N = 0) or (N = 1) then
Exit;
for K := 2 to N do
Result := Result * K;
end;

[Ananas]

سلام.
آخه 4 تا تابع ریاضی که دیگه کلاس لازم نداره! لااقل یه تمرینی بهتون میگفت که مربوط بشه به شی گرایی. خوب یه کلاس تعریف کن و توابعی که لازم داری رو تو قسمت public کلاس بنویس مثلا:

type
TMyClass = class
public
function Factorial(i : Extended):Extended;
//...
end;

بعد از implementation هم دستورات تابع نوشته میشن :

function TMyClass.Factorial(i : Extended):Extended;
begin
//...
end;

و یک مثال استفاده :

procedure TForm1.Button1Click(Sender: TObject);
var
c : TMyClass;
begin
c := TMyClass.Create;
ShowMessage(FloatToStr(c.Factorial(0.5453434)));
//...
c.Free;
end;