그리드에 총점을 내고 평균값을 낼려고그러는데.
정답을 o로 나타내게해서 o를 10점씩잡아서 총점을 낼려고그러는데
어떻게 해야할까요 .. 감이 전혀 안잡혀요.. 고수분들 도와주세요 ....
var
i, j : integer;
begin
for i := 1 to cnt do begin
Form2.StringGrid1.Cells[0, i] := usr_name[i];
//답안 작성자의 이름을 폼2 스트링그리드1의 0열에 저장
for j:= 1 to 10 do begin
if usr_ans[i, j] = answer[j] then
Form2.StringGrid1.Cells[j, i] := 'O' //답이 맞은 경우
else Form2.Stringgrid1.Cells[j, i] := 'X'; //답이 틀린 경우
end; //for의 끝
Form2.Stringgrid1.RowCount := i+1; //폼2 스트링그리드1의 행 증가
end; //for의 끝
Form2.Show; //폼2를 모드리스로 출력
end;
end. //유닛1의 끝
|