这样的单元引用怎么处理？

Question

把具有共性（这里的共性与类无关）意义的类写在一个unit，事实上，你不可能每个类占一个unit（也不好管理）

Answer 1

例如这样的例子：
unit User;TUser = class
private
    fLog: TLog;
public
    procedure WriteLog;
    function getName:String;
    .....
end;implement
procedure TUser.WriteLog;
begin
    fLog.Write(self);
end;end.unit Log;
type
    TLog = class
    public
        procedure Write(User: TUser);
    end;
implement
procedure TLog.Write(User: TUser);
begin
    showmessage(User.getName);
    showmessage(User.getSex);
    ......
end;
end.我觉得这样把他们分在两个单元是很舒服的事情，但是在delphi中不可以吗？

Answer 2

應該行
在unit User; 加
uses Log;//試一下就知道

Answer 3

Log单元也引用了User单元了，那在什么地方加uses User?

Answer 4

不是很规范的做法：分别在implementation前后引用

Answer 5

不行的，大虾们是一下好吗？在接口处定义的在implementation USES是没有用的

Answer 6

unit unit2;
type 
    TB = class
    public 
         procedure AProc(a: TObject);
    end;procedure AProc(a: TObject);
begin
  TA(a).
end;你试试看:)