自定义类的问题

Question

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

Answer 1

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;

Answer 2

>> 何谓“自定义类”？

Answer 3

呵呵，自定义类，Delphi里面都是自定义类吧。
Type
  Tyouclass = class //这就是自定义类
  end;var
  youclass : Tyouclass;
begin
  youclass := TYouclass.create;
  .....
  youclass.free;
end;

Answer 4

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

Answer 5

基本语法错误，指针错误
应该这样：
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;