关于普通类的问题

Question

首先，对不起标题，但很难用几句话来解释。 那么问题就是这个。我有两个类（对象）：Tclass1 和 Tclass2。这些与它们无关，并且两个类（对象）都调用第三个类（对象）：例如 Tclass3。 因为我可以在 Tclass1 和 Tclass2 之间共享 Tclass3 的信息？

试着用一个例子更好地解释：

Tclass1 = class
private
  class3: Tclass3;
public
  property err: Tclass3 read class3 write class3;
  ...
end;

Tclass2 = class
private
  class3: Tclass3;
public
  property err: Tclass3 read class3 write class3;
  ...
end;

Tclass3 = class
private
  icode: word;
public
  property code: word read icode;
  ...
end;

主程序是：

var
  class1: Tclass1;
  class2: Tclass2;
begin
  class1 := Tclass1.create;
  try
    class2 := Tclass2.create;
    try
      class2.err := class1.err;  // <--- problem is here
         ...
         ... // processing...
         ... 
      class1.err := class2.err;  // <--- problem is here
      writeln (class1.err.code)      
    finally
      class2.free; 
    end;
  finally
    class1.free;
  end;
end;

当然，在 Tclass1 和 Tclass2 中，我调用了 Tclass3 的 create 方法并将其实例化。现在，当我运行它时，会出现异常，但我无法读取它，因为控制台已快速关闭。 我已将变量的相同规则应用于类（对象）；事实上，如果我使用变量来放置它，一切正常。 不能用类（对象）解决吗？ 再次非常感谢。

Answer 1

你的问题有点含糊。但让我试着理解。

1. 您有两个类，它们拥有第三个类的实例。 （他们负责创建和删除类）。
2. 您希望在两个类之间共享信息（而不是类本身）。

在这种情况下，您可以创建一个将一个对象的字段复制到另一个对象的分配方法：

Tclass3 = class
private
  icode: word;
public
  procedure Assign(const AValue: TClass3); virtual;

  property code: word read icode;
  ...
end;

procedure TClass3.Assign(const AValue: TClass3);
begin
  Assert(AValue<>nil);
  icode := AValue.icode;
end;

如果要在两者之间共享同一个对象，则需要确定哪个类拥有该对象。 （或者您甚至可以创建一个单独的所有者）。但更好的解决方案是使用 TClass3 的接口，这样您就可以利用引用计数。

Answer 2

“现在当我运行它时，会出现异常，但我无法读取它，因为 控制台快速关闭。”

您可以按如下方式解决该问题：

在您的控制台应用程序的 .dpr 文件中，您可能有这样的内容：

begin
  try
    // do stuff
  except
    on e:Exception do
      writeln(e.message);
  end;
end.

只要改成这样：

begin
  try
    // do stuff
  except
    on e:Exception do
    begin
      // show error, and wait for user to press a key
      writeln(e.message);
      readln;
    end;
  end;
end.

这应该会使调试更容易一些。