比如我现在想把TDATABASE类的OPEN方法放在一个先建立的UNIT2里面

Question

我想把一些经常用的的类的方法或者属性放在一个新的UNIT里面
然后调用
比如我现在想把TDATABASE类的OPEN方法放在一个先建立的UNIT2里面
然后在UNIT1和其他的UNIT里面调用
这个OPEN的语法是PROCEDURE OPEN;
请问怎样放在一个UNIT2里面
提供我以后其他的UNIT调用
请提供格式和要注意的问题
谢谢

Answer 1

你用继承的方式吧，在祖先类中定义Open方法，在另外单元中的子类里面就可以实现了。不知道你是不是这个意思？

Answer 2

unit untFunc;interface
uses Db, DBTables;
function dbopen(var db:Tdatabase):integer;
implementation
function dbopen(var db:Tdatabase):integer;
begin
  result :=0;
  try
    db.Open;
  except
    Result :=-1;
  end;
end;
end.