Курсовая работа: Программа психологического диагностирования на выявление типа темперамента

close(f2);

end;

procedure sozdanie2(s:string);

begin

assign(f2,'input.dat');

reset(f2);

j2:=filesize(f2);

seek(f2,j2);

a2.vop:=form2.Memo1.Lines.Text;

a2.ot1:='Да';

a2.ot2:='Нет';

write(f2,a2);

close(f2);

unit1.k1:=1;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if fileexists('input.dat')=false

then

begin

sozdanie('input.dat');

showmessage('file create');

end

else showmessage('file exist');

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if fileexists('input.dat')=true

then