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

closefile(f1);

end;

end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

begin

horizon:=ARow;

end;

{Удаление записи}

Procedure tform1.deletef(horizon:integer);

var

f1:recordfile;

el:tdvd;

begin

but:=MessageBox(0,'Удалить данные?','Внимание!',MB_YESNO or MB_ICONquestion);

if but=IDYES then

begin

assignfile(f1,derect+'new.db');

rewrite(f1);

assignfile(f,derect+'db_ disk.db');

reset(f);

n:=1;

while not eof(f) do

begin

read(f,el[n]);

if n <> horizon then

write(f1,el[n]);

n:=n+1;

end;