- Код: Выделить всё
program test;
type
generic TTestType<T> = class
v: T;
public
procedure Proc; virtual; abstract;
end;
TTestTypeSpec = specialize TTestType<Single>;
procedure Test(v: TTestTypeSpec);
begin
v.v := 123;
v.Proc;
end;
exports
Test;
begin
end.
- Код: Выделить всё
| mov edx,dword ptr ds:[409000]
| mov dword ptr ds:[eax],edx
| mov edx,dword ptr ds:[eax+4]
| call dword ptr ds:[edx+30]
| ret