Форум программистов [Powered by Invision Power Board]

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids;
    {    Элементы двунаправленного списка имеют следующую структуру:
- Шифр детали
- Наименование
- Цена
- Вес
- Указатель предыдущего
- Указатель последующего
Удалить элемент с заданным номером  от конца списка.}
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button4: TButton;
    sed1: TLabeledEdit;
    sed2: TLabeledEdit;
    sed3: TLabeledEdit;
    sed4: TLabeledEdit;
    Button6: TButton;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure Button4Click(Sender: TObject);



    procedure Button1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
   TPPrice=^Tprice;

   TPrice=record
   index:string[20];
   name:string[20];
   price:string[20];
   mass:string[20];
   next:TPPrice;
   prev:TPPrice;
   end;
var
  Form1: TForm1;
   n,t:integer;        //t - количество элементов в списке
   p,p1,p2,head,last: TPPrice;
   B,B1:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
 new(p);
 p^.index:=sed1.Text;
 p^.name:=sed2.Text;
 p^.price:=sed3.text;
 p^.mass:=sed4.text;
  if head=nil then
  begin
    p^.next:=nil;
    p^.prev:=nil;
    head:=p;
    last:=p;
  end
  else
    begin
      last^.next:=p;
      p^.prev:=last;
      p^.next:=nil;
    end;
  last:=p;
   sed1.clear;
   sed2.clear;
   sed3.clear;
   sed4.clear;
   sed1.SetFocus;
   END;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  {процедура фильтрации ввода}
begin
 case key of
  '0'..'9':;
  else key:=chr(0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   head:=nil;
  last:=nil;
  n:=0;
  StringGrid1.Cells[0,0]:='№';
  StringGrid1.Cells[1,0]:='Шифр';
  StringGrid1.Cells[2,0]:='Наименование';
  StringGrid1.Cells[3,0]:='Цена';
  StringGrid1.Cells[4,0]:='Вес';
end;

procedure TForm1.Button2Click(Sender: TObject); {процедура вывода списка в таблицу}
var i:integer;
begin
  i:=0;
  p:=head;
  StringGrid1.RowCount:=2;
  StringGrid1.Cells[0,1]:='';
  StringGrid1.Cells[1,1]:='';
  StringGrid1.Cells[2,1]:='';
  StringGrid1.Cells[3,1]:='';
  StringGrid1.Cells[4,1]:='';
  t:=0;
  while p<>nil do
    begin
      t:=t+1; // здесь мы считаем количество элементов в списке
      i:=i+1;
      StringGrid1.RowCount:=StringGrid1.RowCount+1;
      StringGrid1.Cells[0,i]:=IntToStr(i);
      StringGrid1.Cells[1,i]:=p^.index;
      StringGrid1.Cells[2,i]:=p^.name;
      StringGrid1.Cells[3,i]:=p^.price;
      StringGrid1.Cells[4,i]:=p^.mass;
      p:=p^.next;
    end;
  StringGrid1.Cells[0,i+1]:='';
  StringGrid1.Cells[1,i+1]:='';
  StringGrid1.Cells[2,i+1]:='';
  StringGrid1.Cells[3,i+1]:='';
  StringGrid1.Cells[4,i+1]:='';

  END;

procedure TForm1.Button6Click(Sender: TObject);
var
 k,g,i:integer;
begin
  k:=strtoint(edit1.text);
  i:=0;
  g:=(t-k)+1; 

{ g - нужный нам элемент, получаемый в результате вычитания числа введенного пользователем из числа t и суммой полученного числа с 1. в результате мы начинаем считать цикл идущий следом, если i (количество проведенных циклов - совпадает с номером элемента от головы) , будет равно числу g то инициируется удаление данного элемента.}


   while p<>nil do
   i:=i+1;
    if (i=g) then
      Begin
        P:=Head;
        B:=False;
          If P=Head Then
            Begin
              Head:=P^.Next;
              p1:=p^.next;
            End
            Else
              Begin
                If P^.Next=Nil Then
                b:=true
                  Else
                    Begin
                      Last^.Next:=P^.Next;
                      P1:=P^.next;
                      P1^.prev:=last;
                    End;
              End;
              If  B Then
              Last^.Next:=Nil;
            End;
            Last:=P;
            P:=P^.Next;
          end;

    
end.