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번째줄과 끝줄을 잘 모르겠습니다.