Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизПроблема с запоминанием строк в 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?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c