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

f,g:recordfile;

but:integer;

h:HWND;

horizon : integer;

end;

var

Form1: TForm1;

implementation

uses unit2, Input, search;

{$R *.dfm}

procedure tform1.clearlist;

begin

n:=0;

while n<stringgrid1.rowcount do

begin

StringGrid1.Cells[0,n+1]:='';

StringGrid1.Cells[1,n+1]:='';

StringGrid1.Cells[2,n+1]:='';

StringGrid1.Cells[3,n+1]:='';

StringGrid1.Cells[4,n+1]:='';

StringGrid1.Cells[5,n+1]:='';

n:=n+1;

end;

stringgrid1.RowCount:=2;

end;

procedure tform1.vivod (dvdfile:string);

var s:disk;

count:integer;

f1:recordfile;