Program Project1; {$iochecks off} uses SysUtils, Unit1, Unit2; function get_object: TBaseClass; begin Result:=TSubClass.Create; end; procedure

Question

Program Project1; {$iochecks off} uses SysUtils, Unit1, Unit2; function get_object: TBaseClass; begin Result:=TSubClass.Create; end; procedure

bench;
var
C: TBaseClass;
i: integer;
sum: SizeInt;
t,d: Double;
begin
C:=get_object;

SetLength(C.arr, 10000000);

t:=Now;
for i:=0 to Length(C.arr) do sum:=sum + C.get_direct(i);
d:=Now-t;
WriteLn('Direct: ', d*MSecsPerDay:0:2, ' ms');

t:=Now;
for i:=0 to Length(C.arr) do sum:=sum + C.get_indirect(i);
d:=Now-t;
WriteLn('Indirect: ', d*MSecsPerDay:0:2, ' ms');
end;

begin
bench;
ReadLn;
end.

Так?
Девиртуализирует, негодник!