mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 02:28:14 +02:00
26 lines
535 B
ObjectPascal
26 lines
535 B
ObjectPascal
{ Old file: tbs0247.pp }
|
|
{ var with initial value not supprted (Delphi var x : integer = 5;) allowed in -Sd mode OK 0.99.11 (PM) }
|
|
|
|
{$mode delphi}
|
|
|
|
var
|
|
x : integer = 34;
|
|
{ this is the way Delphi creates initialized vars
|
|
++ its much more logical then BP
|
|
typed const !!
|
|
-- its incompatible with BP !! (PM) }
|
|
|
|
y : array[0..2] of real = (0.0,1.23,2.56);
|
|
|
|
{ these are true const in Delphi mode and thus
|
|
it should not be possible to change ! }
|
|
|
|
const
|
|
z : real = 45.2;
|
|
|
|
begin
|
|
y[2]:=z;
|
|
{ this should be refused ! }
|
|
z:=y[1];
|
|
end.
|