Did you implement the record exactly as shown? This error normally occurs if you have fields in your record that you don't mention in your typed const declaration.

{$mode objfpc} -> Error!
{$mode delphi} -> Ok!
...
type
  TSetupFuncMapping = record
    x: array of double;
    name:string;
    func: SetupFunc;
  end;

const
  SFM: array[0..2] of TSetupFuncMapping = (
  (x: nil; name: 'SetupFunction_1'; func: SetupFunction_1),
  (x: nil; name: 'SetupFunction_2'; func: SetupFunction_2),
  (x: nil; name: 'SetupFunction_3'; func: SetupFunction_3));

Jilani

--
Jilani KHALDI

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to