Текущий архив: 2003.06.12;
Скачать: CL | DM;

Вниз

Проблема с запоминанием строк в 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c