PDA

View Full Version : My Question



abbas_alimoradi
جمعه 30 اردیبهشت 1384, 20:20 عصر
I have a problem that i want to help:
i wrote this code:


Type
MyClass=Class
Public
MyVar:Byte;
procedure MyMethod(Name:string);
end;
implementation

{$R *.dfm}
procedure MyClass.MyMethod(Name:string);
begin
ShowMessage(Name);
end;
procedure TForm1.Button1Click(Sender: TObject);
var form:MyClass;
begin
form.MyMethod('Hi ...');
form.MyVar:=13;
ShowMessage(inttostr(form.MyVar));
end;


I don't use the Constructor for it But MyMethod execute and when the form.MyVar:=13; do i have a Error 'Access Violation' why form.MyMethod execute but form.MyVar generated Error?
please Explain this problem ...

میتی دات نت
یک شنبه 01 خرداد 1384, 09:10 صبح
به نام خدا
پس چرا از کلاس create نمی کنی؟


procedure TForm1.Button1Click(Sender: TObject);
var form:MyClass;
begin
form := myclass.create;

form.MyMethod('Hi ...');
form.MyVar:=13;
ShowMessage(inttostr(form.MyVar));
end;