|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Структурировать данные
Всем привет!
Вот такая вот у меня проблемка. Не знаю как лучше структурировать большой объем данных. Есть описания объектов в виде записей. Например, грубо говоря вот (чтобы показать суть): Код:
TФрукт = record Название:string; Цвет:string; Форма:string; end; Но проблема в том, что объектов большое количество, и они должны располагаться в определенном порядке (т.е. чтобы я мог работать с ними как с массивами). Какими способами возможно такое реализовать?? |
#2
|
||||
|
||||
А зачем?
Я бы сделал так: Код:
TЕдаType = (етЯгода, етОвощ, етГриб, етОрех...) ТЕда = class private FType: TЕдаType; public proerty ТипЕды: TЕдаType read FType; ... end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Кидал я как-то на форум пример на подобную тему. Суть задачи сводится к тому что у вас есть некий объект и у него есть свойства. Тип и количество свойств варьируются.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
||||
|
||||
тип записи один, а поля разные:
Код:
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; Пишу программы за еду. __________________ |