Курсовая работа: Информационная система расчетов по договорам

// введенное значение больше текущего

pre:= curr;

curr:=curr^.next; // к следующему узлу

end;

if pre = NIL

then

begin

node^.next:=head1;

head1:=node;

end

else

begin

// новыйузелпосле pre, перед curr

node^.next:=pre^.next;

pre^.next:=node;

end;

i:=i+1;

end;

Kp.XDShow;

end;

// ===================

procedure TKp. MoySort5 (AStringGrid:TStringGrid);

var

node: TPSpisXD; // новый узел списка

curr: TPSpisXD; // текущий узел списка

pre: TPSpisXD; // предыдущий, относительно curr, узел

i:integer; // counter

// n:integer; // длина (кол-во элементов) списка

// st:string; // строковое представление списка