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

begin

while not eof(g) do

begin

read(g,s);

if s.name=nameof then

write(g1,s)

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

vivod(derect+'result.db');

erase(g1)

end;

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

var g1:recordfile;