Мне надо сделать поле-константу у объекта... Но как это делается?пытался так:
private const m :byte =5; static;но... ошибка:( помогите, пожалуйста...
заранее благодарен...
private const m :byte =5; static;но... ошибка:( помогите, пожалуйста...
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.