IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> fp, поле-константа
сообщение
Сообщение #1


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


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

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


Хоть и старая тема, но можно было сделать 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 -


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 4:49
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name