Q&A

  • 델파이 질문.
procedure tusersession.initialisequestion;

var

index:integer

begin

fanswers.clear

for index=0 to exam.question - 1 do

fanswers.values[exam.questions[index].id] = unanswered

if exam.strictorder or

(exam.questioncount < 2) then

exit;

randomise;

for index = fanswers.count - 1 downto 1 do

fanswers.exchange(random(index + 1),index);

end;

에서 1번째줄과 3번째줄과 4번째줄과 끝줄을 잘 모르겠습니다.



0  COMMENTS