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

else

sort_1(derect+'result.db');

erase(g1)

end;

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

var g1:recordfile;

s:disk;

cincomof:string;

begin

n:=0;

cincomof:=Edit7.text;

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

rewrite(g1);

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

reset(g); {$I+}

if IOResult = 0 then

begin

while not eof(g) do

begin

read(g,s);

if s.cincom=cincomof then

write(g1,s)

end;

end

else

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

seek(g1,0);

while not eof(g1) do

begin