Записи с вариантной частью, приминение.. Опции

[amega]

Привет! Вот прочитал статью про запись и у меня возникла куча вопросов. Сообственно они все так или иначе связаны с моим курсачом...
курсовой проект был по мультисписковой структурой реализованой в файле

для этого мс(мульти-списка) была реализованые такие типы даных

type
  TName      = string[30];
  Tinf       = string[254];

  TRecRayon       = record        {Запись данных о районе}
            name      : TName;
            inf       : Tinf;
            NextElem  : Integer;
            nextInf   : Integer;
            end;
  TFilerayon     = file of TRecrayon;

  
  TRecWec       = record        {Запись данных о жэке}
            name      : TName;
            inf       : Tinf;
            NextElem  : Integer;
            nextInf   : Integer;
            end;
  TFilewec     = file of trecwec;

  TReculica       = record        {Запись данных о Улицы}
            name      : TName;
            inf       : Tinf;
            NextElem  : Integer;
            nextInf   : Integer;
            end;
  TFileUlica     = file of treculica;

  TReckvart   = record         {Запись данных о квартире}
            home      : TInf;
            namber    : TInf;
            inf       : TInf;
            kolkom    : TInf;
            kolkvmetr : TInf;
            NextElem  : Integer;
            end;
  TFilekvart  = file of TReckvart;

Но неудобство составило при связивание уровней, что нужно писать для каждого типа свою процедуру

  procedure Init_FileRayon(var f:TFileRayon);
  procedure Init_Filewec(var f:TFileWec);
  procedure Init_Fileulica(var f:TFileulica);
  procedure Init_Filekvart(var f:TFilekvart);
.....

А теперь вопросы:
Если написать общий тип, для всех уровней ведь многие поля одинакоы,

Type
  Trec= Record
  ....{ общие поля }
  Case byte of 
    1: (...); { поля для 1 уровня }
    2: (...);  {поля для 2 уровня}
    ...
  end;

, то как это отобразится на запрашиваемой памити, будет расход больше или меньше?

При работе с переменной этого типа, если мы прочитаем что-та в "1", а потом во второе "сигнальное значение", то мы потеряем информацию которая хранилась в первом?

Зы: Volvo извини что создал тему на этом форуме, а не на том что указан на сайте

Сообщение отредактировано: amega - 22.07.2009 23:38

[volvo]

Это типы уровней, они отличаются предназначением. Они зделаны отддельно.

Если они отличаются только предназначением - то делать их раздельными - ОШИБКА. По сути - это одна и та же запись, все эти типы способны читаться и записываться всего двумя процедурами (одна - чтение, другая - запись). А вот ОБРАБАТЫВАТЬ прочитанное значение надо по-разному, естественно. Но это уже не проблема чтения/записи, а проблема неправильного проектирования. Так что:

type
  TName = string[30];
  Tinf = string[254];
  TRec = record
    name      : TName;
    inf       : Tinf;
    NextElem  : Integer;
    nextInf   : Integer;
  end;

  TRecRayon = TRec; { Запись данных о районе }
  TFilerayon = file of TRecrayon;
  
  TRecWec = TRec; { Запись данных о жэке }
  TFilewec = file of trecwec;

  TRecUlica = TRec; { Запись данных о Улицы }
  TFileUlica = file of treculica;

  TReckvart = record         {Запись данных о квартире}
            home      : TInf;
            namber    : TInf;
            inf       : TInf;
            kolkom    : TInf;
            kolkvmetr : TInf;
            NextElem  : Integer;
            end;
  TFilekvart  = file of TReckvart;

...

Нужно более развернуто - присоединяй свою реализацию полностью, посмотрим, как можно исправить...