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

[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 - 23.07.2009 3:38

[amega]

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

остаточную финальную полностью рабочую версию я щас врятли предоставлю, она на флешки которой рядом нет, есть неполная(там неработает попам и остальные мелкие недочеты)

Насчет типов,вот например типы для соседнего варианта(это мне просто повезло что 2 поля ток и они одинаковы):

TLigaRec = record
naiminovanie:string[20];
comands:integer;
shtab: string[20];
nextLigaRec:longint;
startClubRec:longint;
end;

TClubRec= record
nazvanie: string[20];
city:string[15];
FIOpres: string[20];
sponsor: string[20];
capitan: string[25];
StartTrenerRec:longint;
StartIgrokRec:longint;
NextClubRec:longint;
end;

TTrenerRec= record
FIOtrener: string[20];
specialn: string[15];
stazh:string[7];
kvalif:string[10];
NextTrenerRec:longint;
end;

TIgrokRec= record
FIOigroka:string[20];
Amplua:string[15];
zarplata: string[12];
contract:string[20];
NextIgrocRec:longint;
end;

Проэкт
 Копия.rar ( 265.91 килобайт ) Кол-во скачиваний: 569