自定义类的问题

[cysh]

那位能给个自定义类的例子和测试代码，我写的自定义类在运行时就出现异常，可能是没有初始化吧。

[china618]

type
MYR=record
I:Integer;
D:Double;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
R:MYR;
begin
R.I:=3;
R.D:=5.5;

end;

[「已注销」]

何谓“自定义类”？

[Larry1030]

>> 何谓“自定义类”？

[linzhengqun]

呵呵，自定义类，Delphi里面都是自定义类吧。
Type
Tyouclass = class //这就是自定义类
end;

var
youclass : Tyouclass;
begin
youclass := TYouclass.create;
.....
youclass.free;
end;

[jasengod2003]

强烈建议你去看一本书--《delphi高手突破》
教你如何学写类，什么是类，对象，什么是面向对象？
真的很有帮助，你用google找一下。

[LuckyJan]

基本语法错误，指针错误
应该这样：
type
MYR=record
I:Integer;
D:Double;
end;
PMYR=^MYR;

procedure button1_click();
var myItem:PMYR;
begin
new(myItem);
myItem^.I = 100;
myItem^.D = 10.001;
end;