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

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

node^.next:=pre^.next;

pre^.next:=node;

end;

i:=i+1;

//until (i<11);

end;

ShowMessage (' ГОТОВО– СПИСОКХД!');

end;

procedure TKp. FindXD (AEdit1:TEdit; AStringGrid:TStringGrid);

var

curr:TPSpisXD; // текущий, проверяемыйузел

pre: TPSpisXD; // предыдущийузел

found:boolean; // TRUE – узел, которыйнадоудалить

// st:string;

// a:integer;

begin

if head1 = NIL then

begin

MessageDlg ('Списокпустой!', mtError, [mbOk], 0);

Exit;

end;

curr:=head1; // текущийузел– первыйузел

pre:=NIL; // предыдущегоузланет

found:=FALSE;

// найтиузел

=======

while (curr <> NIL) and (not found) do

begin