записи с вариантами и вложенные записи, нужна помощь.

[renx]

Всем привет, нужна помощь по записям с вариантами и вложенными записями. Во вложении есть схема, помогите пожалуйста описать это в паскале, заранее спасибо.

[Naeel Maqsudov]

Код: Выделить всё

type
  v1 = record
    Parameter1:<тип>;
    case byte of
      1 :( Parameter2:<тип>;
         Parameter3:<тип> ;) ;
      2 :( Parameter12:<тип> ;) ;
    end;

[renx]

А вот с этим не поможите. ВО вложении слегка измененная схема.

[Naeel Maqsudov]

Ну так, по аналогии не смогли сделать?
Так как пипы данных не указаны, то я буду считать, что вариант1 в обоих ветвях - это идентичные структуры, а Вариант2 - разные.
Также уточните V1 и V2 - это тоже варианты или это 2 поля типа "Объекты"?

[ronayt]

Код: Выделить всё

type
  v1 = record
    Parameter1:<тип>;
    case byte of
      1 :( Parameter2:<тип>;
         Parameter3:<тип> ;) ;
     [B][U] 2[/U][/B] :( Parameter12:<тип> ;) ;
    end;

а как вместо "2" выделеным сверху, можно вставить множество?
у меня пишет отакую ошибку: Incompatible types: 'Byte' and 'Set'
хотя вроде по книжке сейчас читаю там просто вставили множество и все (

[BBB]

Так?

Код: Выделить всё

type
  v1 = record
    Parameter1:<тип>;
    case byte of
      1 :( Parameter2:<тип>;
         Parameter3:<тип> ;) ;
      2..4, 6 :( Parameter12:<тип> ;) ;
    end;

Только в данном случае все это выглядит бессмысленно, т.к. эти значения (варианты case) не сравниваются со значением никакой конкретной переменной.

[renx]

А параметры ввиде записи можно как-то реализовать?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
может я что то не так объясняю.
Выкладываю суть самой проблемы. помогите с описанием данных.

[ronayt]

case Tracks: byte of
1: (Track1: Track);
[2..20]: ATracks: array[1..19] of Track;

ну вот мой Сase и так типа анаписано в книжке, но почему delphi множество не нравится ((
чо делать ? кто подскажет? )
автор, сор, увидил вопрос по моей теме ну и написал свой, подумал. может и тебе будет полезен ))

[somewhere]

Только в данном случае все это выглядит бессмысленно, т.к. эти значения (варианты case) не сравниваются со значением никакой конкретной переменной.

Это примочки только для компилятора, когда одна и та же структура может быть интерпретирована по разному. Типа как здесь:

Код: Выделить всё

  T2DRect   = packed record
              case Integer of
                   0: (Left,Top,Right,Bottom : Double);
                   1: (TopLeft, BottomRight  : T2DPoint);
              end;

[Naeel Maqsudov]

мой Сase и так типа анаписано в книжке, но почему delphi множество не нравится

Потому, что "множеству" тут не место. Тут может быть только диапазон или значение или список из значений и диапазонов.
Так что возьмите белую канцелярскую краску типа "Штрих" и книгу Вашу аккуратненько пофиксите