IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Кроссворд...
corazon
сообщение 23.05.2005 18:34
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Женский
Реальное имя: Евгения

Репутация: -  0  +


Задали нам сделать кроссворд на дельфи...есть вопросы (или для простоты - слова), ответы(слова) надо ввести в определенное место в стринггриде и потом проверить правильно ли введено, если где то не правильно (пересечение слов не совпало или вообще слово не то), то как то это показать.... вот... вопросы:
1) Как выделить определенную ячейку в стринггриде?
2) Может у кого либо есть алгоритм проверки ввода слов...
3) Как выделить ошибку?
Буду благодарна за любую помощь ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Бродяжник
сообщение 26.05.2005 14:54
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


По поводу вопросов к кроссворду - предлагаю следующее решение (оно не блестящее, но работающее). Смотрите: вот у нас есть файл с кроссвордом: CROSWORD.DAT. Хорошо; создаем в "Блокноте" текстовый файл с вопросами и обзываем его тоже CROSWORD, но расширение даем VPR: CROSWORD.VPR. После загрузки кроссворда из файла CROSWORD.DAT меняем расширение, и читаем вопросы из CROSWORD.VPR. Подробности смотрите в коде.
По поводу стрелочек - хи-хи... сделано было так. Когда мы просто поставили на форму грид, то по нему уже и так можно ходить. Проблемы начинаются, когда мы беремся его редактировать. Отключаются клавиши "влево" и "вправо" - они переключаются на редактирования текста в ячейке. И перейти в соседнюю ячейку можно только после нажатия на ЭНТЕР. Поэтому я сделал что: я заставил программу после каждой нажатой буквы-цифры имитировать нажатие на ЭНТЕР. Это сделано здесь:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key <> #13 then
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := Key;
Key := #13;
StringGrid1.OnKeyPress(Sender,key); // имитируем нажатие
end;
end;

По поводу проверки... это зависит от того, как срочно это Вам нужно. Сегодня мне уже лень, завтра я могу не управиться, в выходные я этим заниматься не буду... если до вторника потерпите, то так и быть. В общем-то, помочь Вам было бы приятно.


Прикрепленные файлы
Прикрепленный файл  SOLVER.ZIP ( 7 килобайт ) Кол-во скачиваний: 150
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
corazon   Кроссворд...   23.05.2005 18:34
Бродяжник   Corazon, идеи следующие. Наиболее простой выглядит...   24.05.2005 12:14
corazon   то что я делала до этого заключалось немного в дру...   24.05.2005 19:30
Бродяжник   Corazon, я через пару часов набросаю кой-чего. Мо...   25.05.2005 8:27
corazon   ok )) а еще я не против пообщаться on-line...   25.05.2005 8:54
Бродяжник   Для начала держите это. Это просто набросок, но ко...   25.05.2005 9:23
Бродяжник   Вот еще. 1 архив - подправленная версия того, что ...   25.05.2005 10:15
corazon   обидно что с асей не дружите ... можно было бы зад...   25.05.2005 21:23
Бродяжник   Corazon, я чуток подправил процедуру чтения из фай...   26.05.2005 9:17
corazon   спасиба )) мне нравится как это работает ))тока я ...   26.05.2005 14:05
Бродяжник   По поводу вопросов к кроссворду - предлагаю следую...   26.05.2005 14:54
corazon   А мне приятно что Вы мне помогаете :) и огромное ...   26.05.2005 20:29
Бродяжник   Ладно... будет Вам счастье. (Лишь бы с инетом ниче...   27.05.2005 8:05
corazon   :)   27.05.2005 13:27
Бродяжник   Ну, держите! В архиве есть файл README.TXT - т...   30.05.2005 9:03
corazon   :) Спасиба, пасиба, пасиба!!!! ))...   30.05.2005 18:08
Бродяжник   :) Желаю удачи!   31.05.2005 8:54
corazon   Спасиба :)   1.06.2005 18:38
Dark   расскажи как ты ее сдала =))))   13.06.2005 10:14


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 4:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"