我现在想写一个类，在其他对话框（TForm类）里用...

Question

我现在想写一个类（TCategory），在其他对话框（TForm类）里用...我现在想写一个类，在其他对话框（TForm类）里用。
我这个类里会用到TADODataSet，TADOConnection等。但是TADODataSet在创建需要基于TComponent的Owner。
如： objADODataset := TADODataSet.Create(Self);那我该如何申请我的这个类，是让他从TComponent派生出来...
还是...象这种情况，我该怎么办？还请大侠指点！谢谢！Crane Zhou
2003.08.26

Answer 1

一个类从哪个基类派生，取决于它的用途，跟你说的那一堆“在其他对话框（TForm类）里用”、“TADODataSet在创建需要基于TComponent的Owner”、“我这个类里会用到TADODataSet，TADOConnection等”有什么关系？————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

Owner都可以是Nil
自己写的类最好是直接从基类派生
type  yourclass=class
end;

Answer 3

type
   你创建的类名=class(基类名)
end;

Answer 4

begin
  connection := TADOConnection.Create(nil);
  connection.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+username+';Initial Catalog=CardBase;Data Source='+server+';password='+password+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ZJH;Use Encryption for Data=False;';
  connection.LoginPrompt := false;
  try
    connection.Connected :=True;
    Result := True;
  except
    Result := False;
  end;
end;