pascalabcnet/TestSuite/intellisense_tests/const1.pas

9 lines
224 B
ObjectPascal
Raw Permalink Normal View History

2017-08-26 16:59:43 +03:00
const
2017-11-19 22:04:04 +03:00
h {@const h: integer = Round(1.3);@}=
Round{@function Round(x: real): integer;@}(1.3);
2017-08-26 16:59:43 +03:00
l{@const l: integer = 1;@} = 1;
2017-10-08 13:30:43 +03:00
l2 = l{@const l: integer = 1;@}+1;
2017-11-19 22:04:04 +03:00
r{@const r: real = sin(2);@} = sin(2);
2017-08-26 16:59:43 +03:00
begin
end.