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

stoimof:integer;

begin

n:=0;

try

stoimof:=StrToInt(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.stoim <= stoimof 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;