我是这样写的。
var
  ALink:TSlink;......
procedure TForm1.create(...);
begin
ALink:=TSLink.create;

解决方案 »

  1.   

    raised exception class EAccessViolation with message 'Access Violation at address 0044016a in module '**.exe' 什么意思?我不明白。
      

  2.   

    TForm1.create(...);
    这个函数,是你响应OnCreate事件,还是你自己弄的构造函数
      

  3.   

    ALink:TSlink;
    这个变量是类成员吗?如果是,这就对了,你自己的构造函数没有调用基类的构造函数以前所有的类成员都是不可用的,其实是TObject类的构造函数分配了类所需要的内存,
    所以请先调用基类的构造函数,为ALink变量分配内存,然后调用TSlink类的构造函数,真正的实现这个类
      

  4.   

    对不起大家了。原来我犯了一个低级低级的错误,把unit文件写到component单元下面去了,呵呵。浪费了大家这么多时间。不好意思。祝元旦快乐。