[fpc-pascal] Typed constant

[Valdas Jankūnas]

Hello,

code snippet from my app:
type
  TLaikoJuosta=record
      Valanda, Minute: SmallInt;
  end;

const
  MAX_LAIKO_JUOSTA: TLaikoJuosta=(Valanda: 99; Minute: 59);

 I want create another constant:

MAX_LAIKO_JUOSTA_MINUTEMIS=MAX_LAIKO_JUOSTA.Valanda*MinsPerHour+MAX_LAIKO_JUOSTA.Minute;

 But compiler (I working in Lazarus v0.9.27 r16994 i386-linux-gtk 2 
(beta); fpc 2.2.2) reported "Error: Illegal expression" and cursor 
blinks at end of line of new constant. Same error if I try:

MAX_LAIKO_JUOSTA_MINUTEMIS: 
SmallInt=MAX_LAIKO_JUOSTA.Valanda*MinsPerHour+MAX_LAIKO_JUOSTA.Minute;

 I creating constant from a constant. But why I getting that error?


--
  Valdas Jankūnas
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal