blob: 54ce3addbc0a7b308a5d32d63b0f12f99fba63c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
program tgeneric32;
{$MODE DELPHI}
{$APPTYPE CONSOLE}
type
TFoo<T> = class
constructor Create;
end;
constructor TFoo<T>.Create;
begin
inherited Create;
end;
var
FooInt: TFoo<Integer>;
begin
// check inline specialization
FooInt := TFoo<Integer>.Create;
FooInt.Free;
end.
|
