Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
error123
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 21
1

Тест на Delphi с TStringGrid.

25.04.2012, 22:53. Просмотров 773. Ответов 2
Метки нет (Все метки)

Помогите!!!!...
Сам уже неплохой программист однако этой вещи не понимаю!!!
Обьясняю проект!

На главной форме расположен stringGrid размером 6Х6 по щелчку на каждую ячейку выскакивает форма двав с вопросом, editом для ввода ответа и кнопкой для потверждения ответа и его сравнения с правильным.

До этого момента все есть
теперь мне нужно решить такие задачи:
-запрет повторного открытия ячеек
-вывод результатов
-выполнение по таймеру
-каждая ячейка stringgridа помечена числом
1) то есть когда юзер уже ответил на вопрос снова открыть именно эту ячейку он не может а все остальные да

2) нужно вывести куда нибудь результат типа в memo о количестве правильных ответов

3) если на форме 1 прошло сколько то времени то форма 1 закрывается и открывается третья где и будут показываться результаты

4) то есть в первой ячейке единица, во второй двойка и так до 36, но чтобы это заполнялось автоматически а не вручную



Помогите пожалуйста!!! Горит очень важная конкурсная работа!!!
0
Вложения
Тип файла: rar проект со stringGridom.rar (211.1 Кб, 42 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2012, 22:53
Ответы с готовыми решениями:

Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и связать ее с Delphi
Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и...

Можно ли создать тест в программе My Test Student и запустить этот тест через Delphi?
Здравствуйте! Мне нужна помощь! Я сейчас делаю курсовую, и мне нужно сделать...

Тест на Delphi
Помогите пожалуйста, я уже не знаю что делать, не получается... Поставили...

Тест на delphi
Помогите взломать тест нужно вытащить ответи

Тест в delphi
Здравствуйте ! Есть тестер вот такого типа кто нибудь помоги сделать в нем так...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,862
Записей в блоге: 6
25.04.2012, 23:51 2
Лучший ответ Сообщение было отмечено error123 как решение

Решение

Цитата Сообщение от error123 Посмотреть сообщение
-запрет повторного открытия ячеек
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// В классе формы:
// ...
  public
    { Public declarations }
    Clicked : set of byte; // Добавляешь вот это
 
 
// В обработчике OnClick грида:
with StringGrid1 do
begin
      if (Row * ColCount + Col) in Clicked then Exit; // Если уже нажимали - выход, можешь выдать сообщение
      Clicked := Clicked + [Row * ColCount + Col]; // Не была нажата ячейка с этим номером - добавить
 
      // это у тебя уже было
      if((Col=0)and(Row=0)) then
Form2.Label1.Caption:='Назовите последовательно правителей Российской'
+ ' империи, начиная с Петра I до последнего представителя'
+ ' на троне династии Романовых.';
Метод со множеством будет работать до 256 ячеек, если планируешь больше - можно заменить чем-нибудь более ёмким...
Цитата Сообщение от error123 Посмотреть сообщение
в первой ячейке единица, во второй двойка и так до 36
Заполняем в OnCreate формы:
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var iCol, iRow : Integer;
begin
   Sleep(10000);
   ShowMessage('прошло 10 секунд'); // Смысл этого действия как-то не очень понятен
 
   with StringGrid1 do
      for iCol := 0 to ColCount - 1 do
         for iRow := 0 to RowCount - 1 do
            Cells[iCol, iRow] := IntToStr(iRow * ColCount + iCol + 1);
end;
0
error123
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 21
26.04.2012, 19:52  [ТС] 3
Добавлено через 4 минуты
огромное спасибо запрет ячеек работает!!!!!!!

и заполнение от 1 до 36 тоже работает спасибо выручил!!!!!!
хотя уж об этом следовало бы мне догадаться
стыд и позор((( мне)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2012, 19:52

Тест на Delphi 7
Здравствуйте, у меня есть код для теста на Delphi 7 , код был переписан с видео...

Тест в Delphi
Ребят можете помочь есть текстовый файл откуда берутся вопросы с вариантами...

Тест в Delphi
Здравствуйте! Нужна помощь( По заданию нужно написать тестер для 4х школьных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru