Реферат: Програмирование на языке Паскаль

var

pf:pfiledialog;

s:pathstr;

x:char;

i,j:integer;

begin

new(pf,init('*.txt','Выберите нужный файл:','Имя файла',fdopenbutton,0));

if desktop^.execview(pf)=stddlg.cmfileopen then

begin

pf^.getfilename(s);

assign(fileresu,s);

rewrite(fileresu); {открываем файл для записи }

fil:=true;

if f then {по условию }

tmatrix.main(true)

else{все подматрицы }

tmatrix.main(false);

dispose(pf,done);

close (fileresu);{закрываем файл }

end;

fil:=false;

end;

{_______________________________________________}

procedure tmatrix.handleevent(var event:tevent);

var

r:trect;

i:integer;

begin

if event.what=evcommand then