constant records

[Uffe Kousgaard 0]

I am searching for a working syntax (if possible) of a constant, nested record:

 

type
  TPoint = record
    x,y: double
  end;
  TCircle = record
    C: TPoint;
    Radius: double;
  end;

const
  cPointZero: TPoint = (x: 0; y: 0);
  cCircleZero: TCircle = ??
 

cCircleZero should be in (0,0) and have radius 0.

 

[Eugine Savin 4]

cCircleZero: TCircle = (C: (x: 0; y: 0); Radius: 0.0);

[David Heffernan 2300]

https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Declared_Constants

 

It's all in here 

Edited November 1, 2023 by David Heffernan