[Пионер]

У меня есть несколько типов записей, можно ли их записать в какой-нибудь тип данных, чтобы потом можно было обратиться к ним по индексу?

[ChinYan]

массив, не? Имеется ввиду массив какого-нибудь базового типа

[Пионер]

нужен такой массив, чтобы в него разные записи можно было вносить!

[YVitaliy]

Как тебе и сказали:

массив какого-нибудь базового типа

Создаешь базовый тип, на его основании - дочерние, и их все в массив...

[Vocabulary]

Сообщение от Пионер

У меня есть несколько типов записей, можно ли их записать в какой-нибудь тип данных, чтобы потом можно было обратиться к ним по индексу?

Можно. Как один из вариантов,обратить внимание на класс TObjectList.
Правда, при этом придется записи "преобразовать" в классы:

Код:

вместо:
TRec = record 
 ...
end;

сделать:
TRec = class
 ...
end;

Тогда "записи" разных типов можно объединить в один массив и обращаться по их индексу.

[Bargest]

Если записи большие и имеют совершенно разные размеры, можно сделать массив указателей на эти записи.

[Vocabulary]

TObjectList - это и есть массив указателей на "записи", которые должны быть объявлены как классы.

[YVitaliy]

TObjectList - потомок TList, и практически повторяет все его свойства, и много еще чего лишнего... А по сути - это тот же массив, просто "удобнее" для новичков в использовании. А если обьекты нужно добавлять динамически, то еще мороки...

[NumLock]

case Integer of и в массив
пример:

Код:

  PMessage = ^TMessage;
  TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;

[Пионер]

а можно будет потом этот класс в файл filestream записать