Курсовая работа: База данных DVD–фильмов

begin

sort_2(derect+'db_sot.db');

end;

procedure TForm1.N12Click(Sender: TObject);

begin

sort_3(derect+'db_ disk.db');

end;

procedure TForm1.reg1Click(Sender: TObject);

begin

sort_4(derect+'db_ disk.db');

end;

procedure TForm1.cincom1Click(Sender: TObject);

begin

sort_5(derect+'db_ disk.db');

end;

{Очистка всплывающее}

procedure TForm1.N9Click(Sender: TObject);

begin

clearlist;

end;

{Очистка в меню}

procedure TForm1.N23Click(Sender: TObject);

begin

clearlist

end;

{Редактирование в меню}

procedure TForm1.N6Click(Sender: TObject);

begin

if (edit9.text='') or (edit9.text='Введите новые данные...') then