[gulejop]

Всем привет!
Вот такая вот у меня проблемка. Не знаю как лучше структурировать большой объем данных.
Есть описания объектов в виде записей. Например, грубо говоря вот (чтобы показать суть):

Код:

TФрукт = record
  Название:string;
  Цвет:string;
  Форма:string; 
end;

Объекты различаются, поэому надо описывать их в виде записей различной структуры. Т.е. например: TФрукт, ТОвощь, TЯгода.
Но проблема в том, что объектов большое количество, и они должны располагаться в определенном порядке (т.е. чтобы я мог работать с ними как с массивами). Какими способами возможно такое реализовать??

[M.A.D.M.A.N.]

А зачем?
Я бы сделал так:

Код:

  TЕдаType = (етЯгода, етОвощ, етГриб, етОрех...)
  ТЕда = class
  private
    FType: TЕдаType;
  public
    proerty ТипЕды: TЕдаType read FType;
    ...
  end;

Ну а всякие там уникальные свойства в классах-наследниках (типа там плотность, форма и т.д.).

[Страдалецъ]

Кидал я как-то на форум пример на подобную тему. Суть задачи сводится к тому что у вас есть некий объект и у него есть свойства. Тип и количество свойств варьируются.

[NumLock]

тип записи один, а поля разные:

Код:

type
  TFruit = record
    Name: String;
    Color: TColor;
    Figure: Integer;
    case Integer of
      0: (
        Weight: Integer;
        More: String[10];
        Words: array [0..1] of Word;
      );
      1: (
        Size: Integer;
        Next: String[10];
        Bytes: array [0..3] of Byte;
      );
  end;
...
var
  f: TFruit;
begin
  f.Weight:=123;
  f.More:='abc';
  ShowMessage(IntToStr(f.Weight));;
  ShowMessage(f.More);
  f.Size:=456;
  f.Next:='xyz';
  ShowMessage(IntToStr(f.Weight));;
  ShowMessage(f.More);
end;