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

end;

end

else

showMessage ('Ошибка');

seek(g1,0);

while not eof(g1) do

begin

read(g1,s);

inc(n);

end;

closefile(g);

closefile(g1);

Edit7.Clear;

if n=0 then

begin

MessageBox(0,'Фильмов данного года выпуска нет.','Внимание!',MB_OK or MB_ICONINFORMATION);

end

else

sort_1(derect+'result.db');

erase(g1)

except

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

Edit7.Clear;

end;

end;

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

var g1:recordfile;

s:disk;

regof:string;