Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с записями с вариантами
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Valeri
Привет)
У меня проблема:необходимо Реализовать очередь на базе динамического списка. Пользовательский элемент списка – либо 4, либо 8, либо 10-х байтное вещественное и двух строк переменной длины . Видимо пользоват.элемент-это хапись с вариантными полями для вещественного... Подскажите, плиз, как лучше реализовать эту запись и как в проге определить ключ выбора. Или дайтк ссылочку , где мона про это почитать)
Заранее пасибо)
mj
type
 TRec = record
   Data: Variant;
   Str1: string;
   Str2: string;
 end;

var
 A: array of TRec;
mj
Вообще очередь на базе списка точно не делают, пусть и динамического...

Тип для настоящей очереди

Код
type
 PRec = ^TRec;
 TRec = record
   Data: Variant;
   Str1: string;
   Str2: string;    
   NextRec: PRec;
 end;


Тип для настоящего стека
Код
type
 PRec = ^TRec;
 TRec = record
   Data: Variant;
   Str1: string;
   Str2: string;    
   PrevRec: PRec;
 end;


Выделене памяти и уничтожение

New(Rec);
Dispose(Rec);

При использовании очереди для быстрого доступа желательно хранить в переменных адреса последнего и первого элементов...

При использовании стека для быстрого доступа достаточно хранить в переменной только адрес последнего элемента...
vf
Хорошо, но как потом это все хозяйство записать в Файл и считать из него обратно?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.