0

Реализовал двусторонне направленный список, хотел бы теперь почитать исходники подобных вещей, для внедрения оптимизаций.(красотульки аля property пока не интересны, процедуры которые присутствуют в классе - реализованы, и именно подобного интересует исходник) И попутный вопрос, как хранить строку в record, точнее как выделять память под такой record, т.к. на данный момент строка фиксированной длинны.

z0_double_list  = class
  Constructor Create;
  Destructor Free;
  Function GetId(aName:string):Integer;
  Function GetName(aid:Integer):string;
  Procedure Add(nID:Integer; nName:string);
  Procedure Del(dID:Integer);                 Overload;
  Procedure Del(dName:string);                Overload;
Private
  First : Pz0_list_item;
  Last  : Pz0_list_item;
  temp  : Pz0_list_item;
end;
1
  • 1
    @ToRcH565, Согласно правилам форума, вопросы не должны сводиться к решению либо завершению учебных заданий за учащихся. Пожалуйста, уточните, что вы сделали сами и что не получилось. 25 ноя 2012 в 6:57

1 ответ 1

1

@Torch565, а в чем вас не устраиваеть Дженерики ?

UPD

Если в рекордах то :

type SomeRecord = record
First : Pz0_list_item;
  Last  : Pz0_list_item;
  temp  : Pz0_list_item;
end;

...........................

myVar:SomeRecord;

....................

Потом здесь надо декларировать function add():Somerec; чтобы добавить новую item, а для установки длины динамически есть setLength

1
  • 1) Их нет в delphi7(все проэкты переводить на студию желания нет) 2) Я с ними не знаком 3) Задача именно разобратся со списками. Собсно уже нашел десяток реализаций листов) и вопрос не актуален) 27 фев 2013 в 15:38

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.