Реферат Програма для створення двозв'язних кільцевих списків

justify">: result: = fThirdHead;

: result: = fFourthHead;;

end;

procedure TPlex.Set_return_pointer (attribute: integer);: = attribute;;

procedure TPlex.Print_to_Grid (Grid: TStringGrid); curNode: TNodePtr;

if fCount = 0 then.FixedRows: = 0;. RowCount: = 1;;;

Grid.RowCount: = 2;. FixedRows: = 1;

curNode: = Get_head;

with Grid do

while curNode <> nil docurNode.Value do [0, RowCount - 1]: = Surname; [1, RowCount - 1]: = XDCode; [2, RowCount - 1]: = SignXD; [3, RowCount - 1]: = City;

RowCount: = RowCount + 1;;

curNode: = Get_pointer (curNode);;

RowCount: = RowCount - 1;

end;;

procedure TPlex.Add (value: TMember); newNode: TNodePtr;: TNodePtr;

fCount: = fCount + 1;

new (newNode);. Value: = value;

newNode.NextFirst: = nil;. NextSecond: = nil;. NextThird: = nil;. NextFourth: = nil;

if fFirstHead = nil then: = newNode;: = newNode;: = newNode;: = newNode;;;

curNode: = fFirstHead;

while curNode.NextFirst <> nil do: = curNode.NextFirst;;

curNode.NextFirst: = newNode;

AddToSecondList (newNode); (newNode); (newNode);;

procedure TPlex.AddToSecondList (newNode: TNodePtr);: TNodePtr;

if (fSecondHead.Value.XDCode> newNode.Value.XDCode) then.NextSecond: = fSecondHead;: = newNode;;;

curNode: = fSecondHead;

while (curNode.NextSecond <> nil) and

(curNode.NextSecond.Value.XDCode

newNode.NextSecond: = curNode.NextSecond;. NextSecond: = newNode;

end;

procedure TPlex.AddToThirdList (newNode: TNodePtr);: TNodePtr;

if (fThirdHead.Value.SignXD> newNode.Value.SignXD) then.NextThird: = fThirdHead;: = newNode;;;

curNode: = fThirdHead;

while (curNode.NextThird <> nil) and

(curNode.NextThird.Value.SignXD

newNode.NextThird: = curNode.NextThird;. NextThird: = newNode;

end;

procedure TPlex.AddToFourthList (newNode: TNodePtr);: TNodePtr;

if (fFourthHead.Value.City> newNode.Value.City) then.NextFourth: = fFourthHead;: = newNode;;;

curNode: = fFourthHead;

while (curNode.NextFourth <> nil) and