Информационная система расчетов по договорам
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
µл после 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;// строковое представление списка
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];
node^.temadog:= {Edit4. Text;} AStringGrid. Cells [4, i];
node^.namorg:= {Edit5. Text;} AStringGrid. Cells [5, i];
node^.priznak:= {Edit6. Text;} AStringGrid. Cells [6, i];
node^.stoimost:= {Edit7. Text;} AStringGrid. Cells [7, i];
// подходящее место для узла
curr:=head1;
pre:=NIL;
NIL)and(node.namorg>curr^.namorg)do">while (curr curr^.namorg) do
begin
// введенное значение больше текущего
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;
//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];
node^.temadog:= {Edit4. Text;} AStringGrid. Cells [4, i];
node^.namorg:= {Edit5. Text;} AStringGrid. Cells [5, i];
node^.priznak:= {Edit6. Text;} AStringGrid. Cells [6, i];
node^.stoimost:= {Edit7. Text;} AStringGrid. Cells [7, i];
// подходящее место для узла
curr:=head1;
pre:=NIL;
NIL)and(node.stoimost>curr^.stoimost)do">while (curr curr^.stoimost) do
begin
// введенное значение больше текущего
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;
//until (i<11);
end;
Kp.XDShow;
end;
// ===================
procedure TKp.WTKShow;
var
end
else if Form4. RadioButton4. Checked Then
begin
Kp. MoySort7 (Form1. StringGrid1);
end;
Kp. Free;
end;
procedure TForm4. Button2Click (Sender: TObject);
begin
Form4. Close;
end;
end.