QueueCommand.pas

unit QueueCommand;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DataTypes;

      // ïðîöåäóðà ñîçäàíèÿ î÷åðåäè
      procedure CreateQueue(var Work: TPointerQueue);
      // ïðîöåäóðà ñîçäàíèÿ íîâîãî óçëà
      procedure makeQueue(var Work: TQueue; x: TItemQ);
      // ôóíêöèÿ âîçâðàùàåò ÈÑÒÈÍÓ åñëè î÷åðåäü ïóñòàÿ, è ËÎÆÜ â ïðîòèâíîì ñëó÷àå
      function isEmptyQueue(Work: TPointerQueue): boolean;
      // ïðîöåäóðà äîáîâëåíèå óçëà â î÷åðåäü
      procedure InsertQueue(var Work: TPointerQueue; x: TItemQ);
      // ïðîöåäóðà óäàëåíèÿ óçëà èç î÷åðåäè
      procedure DeleteQueue(var Work: TPointerQueue; var x: TItemQ);
      // ïðîöåäóðà ïå÷àòè ñîäåðæèìîãî î÷åðåäè
      // ïðîöåäóðà ñîçäàþùàÿ êîïèþ î÷åðåäè
      procedure CopyQueue(var SourceQueue: TPointerQueue; var DuplicateQueue: TPointerQueue);
      // ïðîöåäóðà î÷èñòêà î÷åðåäè
      Procedure ClearQueue(var work: TPointerQueue);
      //ôóíêöèÿ ïîäñ÷¸òà êîë-âà ýë-â â î÷åðåäè
      function CountElQueue(work: TPointerQueue): byte;
implementation

// ïðîöåäóðà ñîçäàíèÿ î÷åðåäè
procedure CreateQueue(var Work: TPointerQueue);
begin
  // îáíóëÿåì ññûëêó íà ãîëîâó î÷åðåäè
  Work.Head:=nil;
  // îáíóëÿåì ññûëêó íà õâîñò î÷åðåäè
  Work.Tail:=nil;
end;

// ïðîöåäóðà ñîçäàíèÿ íîâîãî óçëà
procedure makeQueue(var Work: TQueue; x: TItemQ);
begin
  // âûäåëÿåì ïàìÿòü ïîä íîâûé óçåë
  New(Work);
  // çàïèñûâàåì èíôîðìàöèþ â ïîëå óçëà
  Work^.Data:=x;
  // îáíóëÿåì ññûëêó
  Work^.Next:=nil;
end;

// ôóíêöèÿ âîçâðàùàåò ÈÑÒÈÍÓ åñëè î÷åðåäü ïóñòàÿ, è ËÎÆÜ â ïðîòèâíîì ñëó÷àå
function isEmptyQueue(Work: TPointerQueue): boolean;
begin
  Result:=Work.Head=nil;
end;

// ïðîöåäóðà äîáîâëåíèå óçëà â î÷åðåäü
procedure InsertQueue(var Work: TPointerQueue; x: TItemQ);
var Work2: TQueue;
begin
  // ñîçäàåì íîâûé óçåë
  makeQueue(Work2,x);
  // ïðîâåðàåì, ïóñòàÿ ëè î÷åðåäü
  if (isEmptyQueue(Work)) then
    begin
      // åñëè î÷åðåäü ïóñòàÿ òî
      // ãîëîâó è õâîñò ññûëàåì íà íîâûé, âûøå ñîçäàííûé óçåë
      Work.Head:=Work2;
      Work.Tail:=Work2;
    end
  else
    begin
      // åñëè î÷åðåäü íå ïóñòàÿ òî
      // ïðèâÿçûâàåì ýòîò óçåë ê õâîñòó î÷åðåäè
      // ïðèâÿçûâàåì íîâûé óçåë ê î÷åðåäè
      Work.Tail^.Next:=Work2;
      // ñìåùàåì óêàçàòåëü íà íîâûé õâîñò î÷åðåäè
      Work.Tail:=Work2;
    end;
end;


{procedure InsertQueueAscending(var Work: TPointerQueue; x: TItemQ);
var TempWork, workPred: TQueue;
begin
  empWork:=Work.head;
  while (x<>nil) do
    begin
      workPred:=tempWork;
      if StrToInt(x^.Edit.Text)>StrToInt(TempWork.data^.edit.text) then
        TempWork:=TempWork^.Next
      else
        begin
          if TempWork= work.Head then
            TempWork^.Next:=work;
            work:=TempWork;
        end;
    end; 


end;   }

// ïðîöåäóðà óäàëåíèÿ óçëà èç î÷åðåäè
procedure DeleteQueue(var Work: TPointerQueue; var x: TItemQ);
var Work2: TQueue;
begin
  if not(isEmptyQueue(Work)) then
    begin
     { // åñëè â î÷åðåäè òîëüêî 1 ýëåìåíò
      // î÷èùàåì õâîñò
      if work.head=work.tail then
        work.tail:=nil;   }
      // åñëè î÷åðåäü íå ïóñòàÿ
      // çàïîìèíàì óäàëÿåìûé óçåë
      Work2:=Work.Head;
      // ñìåùàåì óêàçàòåëü íà íîâóþ ãîëîâó î÷åðåäè
      Work.Head:=Work.Head^.Next;
      // îòâÿçûâàåì óäàëÿåìûé óçåë îò î÷åðåäè
      Work2^.Next:=nil;
      // çàïîìèíàåì èíôîðìàöèþ èç óäîëÿåìîãî óçëà
      x:=Work2^.Data;
      // îñâîáîæäàåì ïàìÿòü çàíèìàåìàþ óäàëÿåìûì óçëîì
      Dispose(Work2);
    end
  else
    begin
      // åñëè î÷åðåäü ïóñòàÿ
      // î÷èùàåì óêàçàòåëè íà ãîëîâó è õâîñò
      Work.Head:=nil;
      Work.Tail:=nil;
    end;
end;

//	ïðîöåäóðà ñîçäàþùàÿ êîïèþ î÷åðåäè
procedure CopyQueue(var SourceQueue: TPointerQueue; var DuplicateQueue: TPointerQueue);
var TempQueue: TPointerQueue; // âðåìåííàÿ î÷åðåäü
    temp: TItemQ;
begin
  // âðåìåííîé î÷åðåäè ïðèñâàèâàåì èñõîäíóþ î÷åðåäü
  TempQueue:=SourceQueue;
  // èíèöèàëèçèðóåì äâå î÷åðåäè â êîòîðûõ áóäóò õðàíèòñÿ èñõîäíûé è êîïèÿ î÷åðåäè
  CreateQueue(SourceQueue);
  CreateQueue(DuplicateQueue);
  // ïðîõîäèì ïî î÷åðåäè è ñîäåðæèìîå ïîìåùàåì â äâå î÷åðåäè
  while not(isEmptyQueue(TempQueue)) do
    begin
      // óäàëÿåì óçåë èç î÷åðåäè
      DeleteQueue(TempQueue,temp);
      // ïîìåùàåì óäàëåííûé ýëåìåíò â äâå î÷åðåäè
      InsertQueue(SourceQueue,temp);
      InsertQueue(DuplicateQueue, temp);
    end;
end;

Procedure ClearQueue(var work: TPointerQueue);
var temp:TItemQ;
begin
  while not(isEmptyQueue(work)) do
    DeleteQueue(work,temp);
end;

function CountElQueue(work: TPointerQueue): byte;
var tempNode: TQueue;
begin
  result:=0;
  tempNode:=work.Head;
  while tempNode<>nil do
    begin
      inc(result);
      tempNode:=tempNode^.Next;
    end;
end;

end.