fp, поле-константа Опции

[compiler]

Добрый день!
Мне надо сделать поле-константу у объекта... Но как это делается?пытался так:

private const m :byte =5; static;

но... ошибка:( помогите, пожалуйста...
заранее благодарен...

Сообщение отредактировано: compiler - 13.01.2008 1:09

[Archon]

Хоть и старая тема, но можно было сделать property. Например так:

type
  MyObj = object // Это тестовый объект
  private
    Arr: array of integer; // Это наш массив
    function GetArrLen: byte;
    procedure SetArrLen(Len: byte);
  public
    property ArrLen: byte read GetArrLen write SetArrLen; // Это свойство (property)
  end;

// При чтении свойства ArrLen будет вызываться эта функция
function MyObj.GetArrLen: byte;
begin
  GetArrLen := Length(Arr);
end;

// При записи значения в свойство ArrLen будет вызываться эта процедура
procedure MyObj.SetArrLen(Len: byte);
begin
  SetLength(Arr, Len);
end;

// Пример использования:
var
  M1: MyObj;
begin
  M1.ArrLen := 10; // Задали размер массива Arr равным 10
  WriteLn(M1.ArrLen); // Вывели на экран размер массива Arr (10)
end.

Сообщение отредактировано: Archon - 7.02.2008 16:19

[compiler]

Хоть и старая тема, но можно было сделать property.

Спасибо!