Библиотека программиста

11.01.2012 - Кроссворд на Delphi

Мне к школе часто приходилось делать программки-кроссворды.
Хочу рассказать, как это делать, может кому и сгодится.
Начнём.

Кидаем на форму stringgrid, 2 button, memo и label.
Кликаем по stringgrid-у и устанавливаем FixedCols и FixedRows на 0,
DefaultColWidth, DefaultRowHeight на 25(к примеру).
В Options: GoEditing:=true;
Составляем на клетчатой бумаге кроссворд.
Редактируем размер stringgrid-а. Теперь клетки на которых у нас нет ни одной буквы закрываем чем-угодно( я закрывал panel-ами).
Теперь у первого button изменяем название на "Проверить".
Жмякаем на button открывается процедура OnClick.
Пишем текст:
Код
if (stringgrid1.Cells[x,y]='c') and (stringgrid1.Cells[x1,y1]='b') and // и так далее (x,y,x1,y1:координаты клетки с буквой (счёт идёт с 0) , c,b: буквы стоящие на соответствующих клетках

После написания всего условия пишем код:
Код
then label1.caption:='Правильно' else label1.caption:='Не правильно';

Теперь осталось в memo вписать вопросы, расставить номера( это можно сделать как panel-ами, так и в OnCreate прописать номера), и описать кнопку "Выход".
Кроссворд готов!!!
Опубликовано на сайте: http://www.coders-library.ru
Прямая ссылка: http://www.coders-library.ru/index.php?name=news&op=view&id=363