Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

RoundList := PointerRoundList; end else begin

New(qRound); qRound^.Info := X; qRound^.Next := PointerRoundList^.Next;

PointerRoundList^.Next := qRound; end;
PointerRoundList := PointerRoundList^.Next; end;

procedure DeleteFromRoundList(Position: Integer); var q, h: List; i: Integer; begin if RoundList^.Next = RoundList then //один элемент в списке begin if RoundList nil then Dispose(RoundList);

RoundList := nil; end else // не один элемент в списке begin i := 1; q := RoundList; while i < RoundListPos do begin

Inc(i); q := q^.Next; end; if i 1 then begin h := q^.Next; q^.Next := h^.Next; if h nil then Dispose(h); end else begin q := RoundList^.Next; while q^.Next RoundList do q := q^.Next; h := q^.Next; q^.Next := h^.Next; if h nil then Dispose(h);

RoundList := q^.Next; end; end; if RoundList nil then begin q := RoundList^.Next; i := 1; while q RoundList do begin

Inc(i); q := q^.Next; end; if i = RoundListPos then begin

RoundListPos := 0;

Form1.Image7.Left := 9; end; end; end;

procedure DeleteFromList(Position: Integer); //Удаляет элемент под

//номером Position var i: Integer; q, r: List; begin q := ListBegin; if q nil then // Если список не пуст, то begin if Position = 0 then //Если позиция = 0, то удаляем первый элемент begin

ListBegin := q^.Next; if q nil then Dispose(q); end else begin i := 0; while (i < Position - 1) and (q nil) do //Ищем элемент после

//которого нужно удалить begin q := q^.Next;

Inc(i); end; r := q^.Next; if r nil then //Если удаляемый элемент существует, то удаляем его begin q^.Next := r^.Next; if r nil then Dispose(r); end else ShowMessage('Элемент уже не существует'); end; end else begin

ShowMessage('Список пуст');

Form1.Image1.Hide; end; end;

procedure AddToListTwo(X: Integer; var PointerEndListTwo: ListTwo);
//Добавить элемент в

//конец дв-списка (PointerEnd - указатель на последний элемент списка) begin if PointerEndListTwo = nil then //Если список еще не существует или пуст,

//добавляем в начало begin

New(PointerEndListTwo);

PointerEndListTwo^.Info := X;

PointerEndListTwo^.Next := nil;

PointerEndListTwo^.Prev := nil; end else begin

New(PointerEndListTwo^.Next);

Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.





Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата