VPF::Вопрос о количестве полей в классе

AnalogXP

Дата 5.7.2010, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

Здравствуйте!

Есть отдельный модуль, а в нем создан вот такой класс:

Код


type
  TNameID = class
  private

    fCount,

    fIndex1,
    fIndex2, 
    fIndex3 : Byte;

  public
    ...
    property Count: Byte read fCount;

    property Index1: Byte read fIndex1;
    property Index2: Byte read fIndex2;
    property Index3 : Byte read fIndex3 ;
  end;

Мне нужно определить количество полей fIndex*
Сейчас я делаю так:

Код


constructor TBrowsersID.Create;
begin
  inherited;

  fCount := 3;

  fIndex1:=0;
  fIndex2:= 1;
  fIndex3 := 2;
end;

То есть, определяю вручную. А можно ли определять это автоматически? Чтобы при добавлении поля fIndex4, можно было получить fCount = 4?

Keeper89

Дата 6.7.2010, 00:04 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

А чем обоснован такой формат хранения? Почему не хранить в качестве свойтсва массив типа Byte?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AnalogXP

Дата 6.7.2010, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.9.2007

Репутация: нет
Всего: нет

Цитата(Keeper89 @ 5.7.2010, 22:04

)

А чем обоснован такой формат хранения? Почему не хранить в качестве свойтсва массив типа Byte?

Удобно использовать этот обьект везде где требуется. Плюс содержит функции и процедуры для создания списков, чтения, определения состояния, ну и по данным данного обьекта содаются другие обьекты.

Keeper89

Дата 6.7.2010, 02:18 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

AnalogXP, Вы меня не поняли.

Почему вместо

Код


fIndex1, fIndex2, fIndex3 : Byte;

не использовать

Код


type
  TByteArray = array of Byte;
var
  fIndex: TByteArray;

  function GetIndex(Index: Integer): Byte;

...

  property Indicies[Index: Integer]: Byte read GetIndex;

где GetIndex возвращать элемент с нужным индексом?

Плюс ввести функцию Count, возвращающую количество эл-в в массиве fIndex.

Это сообщение отредактировал(а) Keeper89 - 6.7.2010, 02:19

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »