Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вопрос о количестве полей в классе

Автор: AnalogXP 5.7.2010, 23:44

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

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

Код


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

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

Автор: AnalogXP 6.7.2010, 01:30

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

)

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

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

Автор: Keeper89 6.7.2010, 02:18

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.