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