delphi adoconnection econvert错误

Question

我有以下代码引发 EConvertError -“无法将 TAdoConnection 分配给 TAdoConnection”

var
  wTmpADOConn       : TADOConnection;
begin
  //
  Result := nil;
  try
    Result := TADOConnection.Create(nil);
    wTmpADOConn := afunc(aNameConn);//aFunc-Function which returns a pointer to a  TADOConnection object, aNameConn - string- the name of connection
    if wTmpADOConn <> nil then
    begin
      Result.Assign(wTmpADOConn);//here the error is raising

我不明白我做错了什么。我尝试将变量 wTmpADOConn 转换为 TAdoConnection 或 TPersistent，但没有成功。

我知道可以使用分配过程来复制对象。

代码是用Delphi 7编写的。

LE:谢谢大家，问题是该对象是共享对象，是对另一个ADOConnection的引用。我想要我自己的对象，这样我就可以释放它，而不释放引用。逻辑很复杂，我需要某种机制来从该引用创建对象。

Answer 1

您无法将 TADOConnection 分配给 TADOConnection，因为 TADOConnection 类中未实现此类分配。这很常见 - 许多类没有实现分配方法，并且您不能指望任何 TPersistent 后代实现分配方法 - 通常不需要它。