1

嗨,我有一个关于某些类型转换方法的问题。我正在将一些 Delphi 文件翻译成 C++。我有从 TList 派生的类的 delphi 声明,它是其他派生类的基类。

type TBaseItem = class (TObject)
public
  procedure SomeProcedure; virtual; abstract;
end;

Type TBaseClass = class(TList)
private 
  function GetItem(Index: Integer): TBaseItem;
  procedure SetItem(Value: TBaseItem; Index: Integer);
public
  property Items[Index: Integer]: TBaseItem read GetItem write SetItem;
end;


function TBaseClass.GetItem(Index: Integer): TBaseItem;
begin
  Result := TBaseItem(inherited Items[Index]);
end;

procedure TBaseClass.SetItem(Value: TBaseItem; Index: Integer);
begin
  inherited Items[Index] := Value;
end;

这是两个基类 TBaseItem 和 TBaseClass。所以这里声明了从 TBaseItem 派生的新类 TchildItem 和从 TBaseClass 派生的 TChildClass。TChildItem 是覆盖方法 SomeMethod,更重要的是 TChildtClass 正在覆盖属性 Items,现在我们正在返回 TParentItem 项 insted 的 TBaseItem。

type TChildItem = class (TBaseItem)
public
  procedure SomeProcedure; override;
end;

type TChildClass = class(TBaseClass)
private 
  function GetItem(Index: Integer): TChildItem;
  procedure SetItem(Value: TChildItem; Index: Integer);
public
  property Items[Index: Integer]: TChildItemread GetItem write SetItem;
end;

function TChildClass .GetItem(Index: Integer): TChildItem;
begin
  Result := TChildItem(inherited Items[Index]);
end;

procedure TChildClass.SetItem(Value: TChildItem; Index: Integer);
begin
  inherited Items[Index] := Value;
end;

通过这个例子,我想展示派生类和覆盖属性是多么容易。从列表中获取正确类型的项目只需调用父(基)属性 Item 并将其类型转换为正确类型即可。这是德尔福方法。

我想知道如何将这部分代码翻译成 C++。目前我声明了一个新的基类,它不是从任何类派生的,它有 public var Items 是

class TBaseItem{
  virtual void SomeMethod();
}

class TBaseClass {
public:
  vector<TBaseItem> Items; 
};


class TChildItem : public TBaseItem{
}

class TChildClass : public TBaseClass {
};

然后使用

return (TChildItem) Items[Idx]

这意味着我想访问父级的(TBaseClass)公共变量,例如那个向量项并将它的类型转换为正确的类型......我的第一印象是我可能会使用 Delphi 方法进入错误的方向。

你有什么建议?我该怎么办?

非常感谢!

4

1 回答 1

5

Delphi 代码是旧的并且早于泛型,Delphi 类似于 C++ 模板。在现代 Delphi 代码中,这些列表类根本不存在。相反,人们会使用TList<TBaseItem>and TList<TChildItem>

在 C++ 代码中,您只需使用vector<TBaseItem*>and vector<TChildItem*>。在您的 C++ 翻译中实现TBaseClassTChildClass.

我也会更正你的术语。Delphi 属性不能被覆盖。新的财产TChildClass就是这样,一个新的财产。

于 2013-03-20T22:36:41.050 回答