我有很多使用旧式pascal 对象类型的旧代码，我试图在Delphi 2009 中工作。它可以编译，但处理虚拟方法似乎存在一些问题。此问题似乎已在 Quality Central 上报告：
http://qc.embarcadero.com/wc/qcmain.aspx?d=71723
我希望任何仍在使用这些的人（也许是 PatrickvL？）可以提供更多信息。我们有很多使用对象的代码，如果不能解决这个问题，我们就会陷入困境。提前致谢！
【问题讨论】：
标签： delphi object delphi-2009
如果您使用虚拟方法，那么您显然是通过引用访问对象，而不是通过值。这就是类在 Delphi 中的工作方式，因此切换到类应该不会太难。
对于任何不具有虚方法的对象类型，您应该能够将它们转换为记录。现在允许记录具有方法以及可见性说明符。不过，不支持继承。
自 1994 年 2 月 14 日（即 Delphi 第一个版本的发布日期）起，旧式对象已被弃用。从那以后，它们一直在恶化。几年前你就应该远离他们了。
【讨论】：
我必须承认我有几杯啤酒在看这个，只是为了挑战:) 你需要一些神奇的字节。根据传说，如果您使用任何虚拟方法，旧样式对象只会为指针创建空间。没有虚拟方法没有 VMT。
VMT 指针总是在新样式对象的前面，因为它们都声明了虚拟方法。似乎有人忘记了旧式对象的 VMT 可以稍后出现。所以假设它只有一个指针，这使它可以在我的 D2009 上工作。我不喜欢编译器，一个叫 Dave Jewell 的人曾经为 PC pro 写过代码，他可能会证实这将是稳定的......
Type
PObject1 = ^TObject1;
TObject1 = Object
Magic: Array[0..3] of Byte; //or integer or whatever I was playing with the size
FCount : Integer;
Constructor Init;
Procedure Add; virtual;
Procedure Deduct; virtual;
end;
Type
PObject2 = ^TObject2;
TObject2 = Object(TObject1)
Constructor Init;
end;
然后在构建这些工作之后：
.
.
.
Object2^.Add;
Object2^.Deduct;
我得到了适当的控制台输出
我添加了一个额外的过程只是为了确保它适用于 2 个虚拟 :)
顺便说一句，无论您是否输入 ^，它们都可以工作 2009 知道您的意思:(
缺乏来自 embracodeland 的适当修复 您可能仍然需要更改每个 BASE 对象定义。希望您可以使用 find 和 insert/replace 或 Grep...祝您好运。
【讨论】：
好的 - 完成了 - 我不能让它失败.... 您的 D2009 是否已完全修补？ 项目/编译器选项？
为了绝对确定和比较，这里是我的单位：
---------------项目文件
program testD2009;
{$APPTYPE CONSOLE}
uses
SysUtils,
Object1U in 'Object1U.pas',
Object2U in 'Object2U.pas';
Var
Object1 : PObject1;
Object2 : PObject2;
begin
try
Object1 := New(PObject1,Init);
Object1^.Add;
Object1^.Deduct;
Object2 := New(PObject2,Init);
Object2^.Add;
Object2^.Deduct;
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
-------------Object1 单位
unit Object1U;
interface
uses SysUtils;
Type
PObject1 = ^TObject1;
TObject1 = Object
Magic: Array[0..3] of Byte;
FCount : Integer;
Constructor Init;
Procedure Add; virtual; { removing virtual allows the program to run }
Procedure Deduct; virtual; { removing virtual allows the program to run }
end;
implementation
Procedure TObject1.Add;
begin
Writeln('Object1 Add');
end;
procedure TObject1.Deduct;
begin
Writeln('Object1 Deduct');
end;
Constructor TObject1.Init;
begin
inherited;
FCount := 0;
Writeln('TObject1 Init');
end;
end.
----------------对象2单元
unit Object2U;
interface
uses Object1U;
Type
PObject2 = ^TObject2;
TObject2 = Object(TObject1)
Constructor Init;
Procedure Add; virtual; { removing virtual allows the program to run }
Procedure Deduct; virtual; { removing virtual allows the program to run }
end;
implementation
procedure TObject2.Add;
begin
Writeln('Object2 Add');
inherited;
end;
procedure TObject2.Deduct;
begin
Writeln('Object2 Deduct');
inherited;
end;
Constructor TObject2.Init;
begin
Inherited Init;
fCount := 1;
Writeln('TObject2:Init');
end;
end.
----------------程序输出：
TObject1 初始化 对象 1 添加 对象1扣除 TObject1 初始化 TObject2：初始化 对象 2 添加 对象 1 添加 对象2扣除 对象1扣除我很困惑:)。
【讨论】：
我就这个问题向 Embarcadero 的当地代表发送了一封电子邮件，并让他们参考 Quality Central 上的报告。他们基本上告诉我们将所有对象移动到类，所以我猜他们不打算修复这个......永远。我想我们已经基本接受了，如果我们想继续前进，这是我们必须走的路，所以现在我们只需要安排好这项工作，然后才能继续升级到 Delphi 2009。
只是想感谢所有试图提供帮助的人，但我相信在这一点上这是一个失败的原因:-(
【讨论】：