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

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

node^.next:=pre^.next;

pre^.next:=node;

end;

i:=i+1;

//until (i<11);

end;

Kp.XDShow;

end;

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

procedure TKp. MoySort7 (AStringGrid:TStringGrid);

// Сортировкапо 7

var

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

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

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

i:integer; // counter

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

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

begin

Kp.null;

i:=1;

//repeat

while (i<11) do

begin

new(node);

node^.numb:={Edit1. Text;} AStringGrid. Cells [1, i];

node^.datzak:= {Edit2. Text;} AStringGrid. Cells [2, i];

node^.datzav:= {Edit3. Text;} AStringGrid. Cells [3, i];