32 lines
678 B
ObjectPascal
32 lines
678 B
ObjectPascal
|
type
|
|||
|
|
t0<T> = class end;
|
|||
|
|
t1 = class(t0<byte>)
|
|||
|
|
|
|||
|
|
procedure p1;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
//обязательно лямбда
|
|||
|
|
var p: procedure := ()->
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
//обязательно цикл for, loop или foreach
|
|||
|
|
//достаточно оставить 1 из следующих 3 строк чтоб воспроизвелось:
|
|||
|
|
for var i := 0 to 0 do
|
|||
|
|
p;
|
|||
|
|
foreach var o in Arr(0) do;
|
|||
|
|
loop 0 do;
|
|||
|
|
|
|||
|
|
|
|||
|
|
//а с repeat и while не воспроизводится:
|
|||
|
|
//while false do;
|
|||
|
|
//repeat until true;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var o := new t1;
|
|||
|
|
o.p1;
|
|||
|
|
end.
|