Is it possible to define constant records in FPC?

[Leledumbo]

I would like to have compile directive (something like: {$+SOMETHING} and {$-SOMETHING}) to allow/prevent modify a typed constant. I don't know if that's possible, nor if that's a good idea ...

If I'm not mistaken, {$J-} would disallow it.

[garlar27]

I would like to have compile directive (something like: {$+SOMETHING} and {$-SOMETHING}) to allow/prevent modify a typed constant. I don't know if that's possible, nor if that's a good idea ...

If I'm not mistaken, {$J-} would disallow it.

   It does that, but it only works inside the interface section and not inside implementation section. What I "wish" is to block those assignment in the whole implementation section, except in some specific methods where I would allow it through the compile directive.

   I think I should put it in the wish list...

[captian jaster]

   I like the Laksen's approach over Captain Jaster's because you can define many constants of the same record type without repeating its declaration and also you can pass the whole structure as a method's parameter.

His is better...

I would like to have compile directive (something like: {$+SOMETHING} and {$-SOMETHING}) to allow/prevent modify a typed constant. I don't know if that's possible, nor if that's a good idea ...

If I'm not mistaken, {$J-} would disallow it.

If I'm correct you automatically can't modify constants..
I haven't read to far to "ResourceStrings" but I understand they are stored into resources of the program..(I have no idea what the means  ) But afaik you can't modify them at run time... What about something like resourcestring for every type?

[garlar27]

I haven't read to far to "ResourceStrings" but I understand they are stored into resources of the program..(I have no idea what the means  ) But afaik you can't modify them at run time... What about something like resourcestring for every type?

I haven't red much eider . ResourceStrings and Localization is something I must learn...

[howardpc]

Note that the Pascal terms 'var' and 'const' are interchangeable in this code:

Code: [Select]

program projectVarConst;

{$mode objfpc}{$H+}
{apptype console}

uses Classes, SysUtils;

const // you can use 'var' here - code compiles and produces identical executable
  TRec : Record
          S:String;
          Int:Integer;
         end             =    (S:'';Int:10);

 begin
   writeln(Format('TRec.Int value is %d',[TRec.Int]));
   writeln;
   writeln('Changing TRec''s int value ...');
   TRec.Int := 20;
   writeln;
   writeln(Format('TRec.Int value is %d',[TRec.Int]));
   readln;
 end.