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

[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

[amega]

Ты еще и не в том разделе ее создал Какая ж теория? Это уже чистой воды программирование...

извиняюсь. Если не там создал то перенесите ее.

На самом деле, не совсем понятно, чем тебе наличие этих 4-х процедур инициализации помешало? Можно подумать, если ты сделаешь вариантную запись, то тебе не надо будет такие же 4 процедуры...

Дело в том что тело процедрур этих одинаковое, как и остальных 7(7х4=28) груп процедрур,

rewrite(f);
 rec.NextElem:=-1;
 write(f,rec,rec);
 CloseFile(f);

, лучшеш добавыть один памерт уровень, и иметь 7 вместо 28.

На самом деле задачка достаточно просто решается через объекты...

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