بدست آوردن مساحت با استفاده از کلاس

[mehdi5106]

بعد از تعریف یک کلاس جدید مثل کد زیر در قسمت Type و زدن سه کلید Ctrl+Shift+c بخشی جهت نوشتن ادامه برنامه استفاده از کلاس ایجاد می شود.تا این قسمت که هیچ مشکلی نیست.حالا بعد از این چگونه دستورات را در بخش جدید نوشت و چگونه می توان با استفاده از یک Button و Edit مقداری را از کاربر دریافت نماید .مثلا فرض کنید مساحت دایره را می خواهیم با استفاده از تعریف این کلاس بدست آوریم.

myclass=class
private
pi:real;
public
function masahat:real;
// Ctrl+Shift+c
end;



function myclass.masahat: real;
begin
end;

[mehdi5106]

کسی جواب این سئوال رو نمی دونه.خواهشن اگه کسی جوابی داره بگه چون برای فردا صبح لازمش دارم.منتظر جوابتون هستم

[shayan_delphi]

در اعلان

public
function masahat(X: integer):real;
و در تعریف

function TForm1.masahat(X: integer): real;
begin
Result := X*X*pi;
end;و در فراخوانی در رویداد دلخواه

a := masahat(strtoint(edit1.text))