|
@@ -14,7 +14,7 @@ type
|
|
|
|
|
|
end deprecated 'Message A' platform;
|
|
end deprecated 'Message A' platform;
|
|
|
|
|
|
- // this will print that TTest<T> is deprecated and platform dependant
|
|
|
|
|
|
+ // these will both print that TTest<T> is deprecated and platform
|
|
TTestInteger = TTest<Integer> deprecated 'Message B' experimental;
|
|
TTestInteger = TTest<Integer> deprecated 'Message B' experimental;
|
|
TTestString = TTest<String>;
|
|
TTestString = TTest<String>;
|
|
|
|
|
|
@@ -24,6 +24,8 @@ var
|
|
// this will print nothing
|
|
// this will print nothing
|
|
t2: TTestString;
|
|
t2: TTestString;
|
|
begin
|
|
begin
|
|
- // this will print that TTest<T> is deprecated and platform dependant
|
|
|
|
|
|
+ // this will print that TTest<T> is deprecated and platform
|
|
t2 := TTest<String>.Create;
|
|
t2 := TTest<String>.Create;
|
|
|
|
+ // this will print that TTestInteger is deprecated and experimental
|
|
|
|
+ t := TTestInteger.Create;
|
|
end.
|
|
end.
|