Как объявить константы в записи Delphi

Запись с константами

Чтобы создать запись с константами, или только для чтения, используйте следующую инициализацию:

// объявление записи
type
  TMyRecord = record
    myRecord1 : string;
    myRecord2 : integer;
    myRecord3 : Currency;
  end;

{ ... }

const
  MyRecordConst : TMyRecord =
      (
        myRecord1 : 'myString';
        myRecord2 : 125;
        myRecord3 : 100000
      ) ;

Обратите внимание, что если Вы попробуете назначить какое-либо значение любому из полей MyRecord1, Вы получите ошибку компиляции:

procedure Proba;
begin
  // Ошибка во время компиляции
  // Левой стороне не может быть ничего назначено
  MyRecordConst.myRecord1 := 'otherString'
end;