Проблема с запоминанием строк в TStringGrid. Прошу помощи!

← →
ZigZag19 (2003-05-30 00:19) [0]

Моя прога проводит тест по физике. Результаты теста должны построчно выводиться в TStringGrid, так оно и происходит, но тут же возникает проблема. Результаты первого тестируемого выводятся нормально, НО!, после повторного прохождения теста новые результаты, записываясь в следующую строчку TStringGrid, также записываются и в первую строчку. При третьем прохождении теста, новые результаты, записываясь в третью строчку, записываются в первую и во вторую. Как это можно исправить. Сообщите, пожалуйста, если нужно привести фрагменты кода. Спасибо!

← →
Юрий Зотов © (2003-05-30 00:55) [1]

> Сообщите, пожалуйста, если нужно привести фрагменты кода.
> Спасибо!

Сообщаю. Пожалуйста.
Либо ищите у себя цикл, который пишет текущие результаты во все строки.

← →
ZigZag19 (2003-05-31 01:50) [2]

Я этот цикл нашел, он у меня помещен в тело события OnCreate формы для Результатов. Вот он:
For i:=1 To reslts.nPeople Do Begin With tablestr[i] Do Begin Str(reslts.nPeople, TempString); Cells[0, i]:=TempString; Cells[1, i]:=reslts.Surname; Cells[2, i]:=reslts.testLevel; Str(reslts.aRight, TempString); Cells[3, i]:=TempString; End;

1) reslts - переменная типа TResults;

2) TResults = RECORD
nPeople: Integer; //число прошедших тест учеников
Surname: String[20]; //фамилия ученика
testLevel: Char; //уровень теста
aRight: Byte; //количество правильных ответов
End;

3) tablestr - переменная типа resultArr;

4) resultArr = Array[1..100] Of TResults;

Как же изменить код, чтобы не переписывались предыдущие строки?
Никак у меня не получается.

← →
ZigZag19 (2003-05-31 17:32) [3]

Может дело в событии OnCreate?

Проблема с запоминанием строк в TStringGrid. Прошу помощи! Найти похожие ветки