Динамические структуры данных. Организация данных в списковые структуры - Delphi - Ответ 2179818

type
  //Типы для описания списка.
 
  //Тип основных данных.
  TData = Integer;
  
  //Тип, описывающий элемент списка.
  TPElem = ^TElem;
  TElem = record
    Data : TData;
    PNext : TPElem;
  end;
  
  //Тип, описывающий список.
  TDList = record
    PFirst : TPElem;
    PLast : TPElem;
  end;
 
//Процедуры для работы со списком.
 
//Удаление всего списка из памяти и инициализация.
procedure ListFree(var aList : TDList);
var
  PNext, PDel : TPElem;
begin
  if aList.PFirst = nil then Exit;
 
  PNext := aList.PFirst;
  while PNext <> nil do begin
    PDel := PNext;
    PNext := PNext^.PNext;
    Dispose(PDel);
  end;
 
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
//Добавление элемента в конец списка.
procedure AddL(var aList : TDList; var aPElem : TPElem);
begin
  if aPElem = nil then Exit;
 
  aPElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := aPElem
  else
    aList.PLast^.PNext := aPElem
  ;
  aList.PLast := aPElem;
end;

var
  List : TDList
  PElem : TPElem;
  S : String;
...
begin
...
  //Начальная инициализация списка.
  List.PFirst := nil;
  List.PLast := nil;
...
  //Распечатка списка в Мемо.
  if List.PFirst <> nil then begin
    Memo1.Lines.Add('Элементы списка:');
    S := '';
    PElem := List.PFirst;
    while PElem <> nil do begin
      if S <> '' then S := S + ', '; //Или: S := S + #9;
      S := S + IntToStr(PElem^.Data);
    end;
    Memo1.Lines.Add(S);
  end else
    Memo1.Lines.Add('Список пуст.')
  ;
...
  //Удаление списка из памяти.
  ListFree(List);
...
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
...
var
  List : TDList
  PElem : TPElem;
...
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
...
  //Начальная инициализация списка.
  List.PFirst := nil;
  List.PLast := nil;
...
  //Распечатка списка.
  if List.PFirst <> nil then begin
    Writeln('Элементы списка:');
    PElem := List.PFirst;
    while PElem <> nil do begin
      if PElem <> List.PFirst then Write(', '); //Или: Write(#9);
      Write(PElem^.Data);
    end;
    Writeln;
  end else
    Writeln('Список пуст.')
  ;
...
  //Удаление списка из памяти.
  ListFree(List);
...
end.