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

else

begin

createdir('Database\');

assignfile(f1,derect+'db_ disk.db');

rewrite(f1);

closefile(f1);

end;

end;

//-----------------

procedure tform4.sort_1(dvdfile: string);

var

f,q:file of disk;

c,i,n:integer;

buf:disk;

el:tdvd;

begin

assignfile(q,derect+'db.db');

rewrite(q);

assignfile(f,dvdfile);

reset(f);

c:=0;

while not eof(f)do

begin

c:=c+1;

read(f,el[c]);

end;

for i:=1 to c do

for n:=i+1 to c do

if el[n].name<el[i].name then