Трёхуровневый иерархический список - Дипломная работа

данный логический управление Любая программа представляет собой не только набор операторов и ключевых слов, но также и совокупность информационных объектов, имеющих определённую логическую структуру. Структурой данных называется множество данных и отношений между ними. Все связи одного элемента данных с другими образуют элемент отношений. Одной из основных операций в структурах является просмотр её элементов. В данном курсовом проекте базовой структурой данных является трёхуровневый иерархический список. Соответственно данными для проекта служат записи о договорах, исполнителях, отделений банка и т.д. Состав Delphi-проекта Формы, входящие в состав Delphi-проекта: unitUnitMain; Модуль главной формы программы. Компоненты TStringGrid - таблицы, предназначенные для вывода информации о договорах, исполнителях, банках а также из трёхуровневой иерархической структуры. Модули, входящие в состав Delphi-проекта: unitStructures; Модуль, содержащий описание класса трёхуровневого иерархического спискаTTHierarchList. Это класс инкапсулирует в себе все необходимые по заданию операции по обработке структуры: формирование трёхуровневого иерархического списка; добавление и изменение содержимого элементов; сортировка структуры прямым выбором, а также поиск элементов по заданному ключу и отображение списка на экране. Описание его переменных и методов //Тип - указатель на элемент третьего уровня иерархии PLevel3 = ^TLevel3; //Запись - элемент третьего уровня иерархии TLevel3 = Record Account: LongWord;//Номеррасчётногосчёта Next:PLevel3 //Указатель на следующий элемент в третьем уровне структуры end; //Тип - указатель на элемент второго уровня иерархии PLevel2 = ^TLevel2; //Запись - элемент второго уровня иерархии TLevel2 = Record City : String[20]; //Названиегорода Accounts: PLevel3; //Указатель на третий уровень иерархии Next: PLevel2 //Указатель на следующий элемент во втором уровне структуры end; //Тип - указатель на элемент первого уровня иерархии PLevel1 = ^TLevel1; //Запись - элемент первого уровня иерархии TLevel1 = Record Number : Word; //Номерхоздоговора StartDate: String[10]; //Дата заключения Done : Boolean; //Признак завершения Price : Word; //Цена работ по договору Cities : PLevel2; //Указатель на второй уровень иерархии Next : PLevel1 //Указатель на следующий элемент в первом уровне структуры end; //Класс 3-ёх уровневой иерархической структуры THierarchList = class private Head: PLevel1; //Указатель на голову списка (первый уровень) Current: PLevel1; //Текущий указатель в списке (первый уровень) Count: Word; //Количество элементов в списке на первом уровне procedure Swap(P1, P2: PLevel1); //Процедура менят местами два узла первого уровня иерархии (для сортировки) public property Counter: Word read Count; //Добавление члена ВТК в иерархический список procedure Add(S: String; D: Boolean; N, P: Word; var City: TCities; Cnt: Byte; var Accounts: TAccounts); procedure Show(SG: TStringGrid); //Вывод структуры на форму procedure SortingUp; //Сортировка по возрастанию procedure SortingDown; //Сортировка по убыванию function SearchByNumber(N: Word): TLevel1; //Поискдоговорапономеру function GetByNumber(N: Word): PLevel1; //Получение договора по номеру в списке (для корректировки) end; МодульOrganizations.