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

begin

MessageBox(0,'Дисков со стоимостью, ниже заданной, нет.','Внимание!',MB_OK or MB_ICONINFORMATION);

end

else

sort_2(derect+'result.db');

erase(g1)

except

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

Edit7.Clear;

end;

end;

procedure tform4.search_3(dvdfile:string; var g:recordfile);

var g1:recordfile;

s:disk;

yearof:real;

begin

n:=0;

try

yearof:=StrToFloat(Edit7.text);

assignfile(g1,derect+'result.db');

rewrite(g1);

assignfile(g,derect+'db_sot.db'); {$I-}

reset(g); {$I+}

if IOResult = 0 then

begin

while not eof(g) do

begin

read(g,s);

if s.year = yearof then