home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 448.NETEDIT.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-13  |  1KB  |  41 lines
  1. procedure delete_entry;
  2. var i : integer;
  3. begin
  4.   if top_pntr = 0 then exit;
  5.   if checkins[curr_pntr].list_nbr = 1
  6.   then
  7.     begin
  8.       new_pntr := new_pntr - 1;
  9.       if new_pntr < 0
  10.       then
  11.         new_pntr := 0
  12.       else
  13.         for i := checkins[curr_pntr].position to new_pntr do
  14.         begin
  15.           new_list[i]^ := new_list[i + 1]^;
  16.           checkins[new_list[i]^.xref].position := i;
  17.         end;
  18.     end
  19.   else
  20.     begin
  21.       net_list[checkins[curr_pntr].position]^.xref := 0;
  22.       for i := 1 to nbr_calls do
  23.         if net_list[i]^.xref > curr_pntr then
  24.            net_list[i]^.xref := net_list[i]^.xref - 1;
  25.     end;
  26.     if top_pntr > 1
  27.     then
  28.       for i := curr_pntr to top_pntr - 1 do
  29.         checkins[i] := checkins[i+1];
  30.   top_pntr := top_pntr - 1;
  31.   if top_pntr = 0  then
  32.   begin
  33.     curr_pntr := 0;
  34.     update_flag := FALSE;
  35.   end;
  36.   if mark1 > curr_pntr  then mark1 := mark1 - 1;
  37.   if mark2 > curr_pntr  then mark2 := mark2 - 1;
  38.   re_display;
  39.   status;
  40. end;
  41.