Реферат: Разработка программы психотестирования

if spinedit2.value<spinedit1.value then spinedit2.value:=spinedit1.value

end;

procedure TfrmMain.SpinEdit2Change(Sender: TObject);

begin

if no then exit;

res[spinedit3.value].max:=spinedit2.value;

end;

procedure TfrmMain.Memo1Change(Sender: TObject);

var i:integer;

begin

if not no then for i:=1 to length(memo1.text) do res[spinedit3.value].text[i]:=memo1.text[i]

end;

procedure TfrmMain.FormCreate(Sender: TObject);

begin

varnum:=1;

no:=false

end;

procedure TfrmMain.SpinEdit3Change(Sender: TObject);

begin

no:=true;

if varnum<spinedit3.value then varnum:=spinedit3.value;

memo1.text:=res[spinedit3.value].text;

spinedit1.value:=res[spinedit3.value].min;

spinedit2.value:=res[spinedit3.value].max;

no:=false;

memo1.SetFocus

end;

end.