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

new:string;

begin

n:=0;

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

reset(f);

try

new:=Edit9.text;

seek(f,horizon-1);

read(f,q);

case comboBox3.ItemIndex of

0:q.name:=new;

1:try q.stoim:=strtoint(new);

except

MessageBox(0,'Цена указывается в цифрах!','',MB_OK or MB_ICONWARNING)

end;

2:try q.year:=strtoint(new);

except

MessageBox(0,'Год выпуска указывается в цифрах!','',MB_OK or MB_ICONWARNING)

end;

3:q.reg:=new;

4:q.cincom:=new;

end;

begin

seek(f,horizon-1);

write(f,q);

closefile(f);

end;

except

MessageBox(0,'Выбирите строку из списка.','',MB_OK or MB_ICONWARNING)