Подключение мыши, (программа Кроссворд) Опции

[-LOVE133-]

скачала несколько юнитов для работы с мышью, но при запуске программы требует файл типа TPU , а все юниты просто с расширение PAS. что в этих ситуациях обычно делают?

[Бродяжник]

Структура самого гнезда очень простая - координаты начала, длина слова и направление.
Нечто вроде

type
  TGnezdo = record
    x,y: byte;
    len: byte;
    horizontal: boolean;
  end;

var
  Gnezdo: array[1..100] od TGnezdo;

Первым делом заполняем этот массив - когда еще никаких букв нет. Потом берем первое найденное гнездо. Пусть будет, как у Вас: 5 букв, вертикально. Выбираем из словаря первое попавшееся слово из пяти букв (обозначим его, как slovo). Гнездо у нас вертикальное. Поэтому организовываем нечто такое:

ok := true;
i:=0;
while (ok) and (i<Gnezdo[1].len) do
  begin
    if (Setka[Gnezdo[1].x][Gnezdo[1].y+i] <> ' ') and (Setka[Gnezdo[1].x][Gnezdo[1].y+i] <> Slovo[i+1])
      then ok := false
      else inc(i);
  end;

Если после выхода из этого цикла ok = true, значит, слово подходит. Тогда вписываем его в сетку:

for i=0 to Gnezdo[1].len-1 do
  begin
    Setka[Gnezdo[1].x][Gnezdo[1].y+i] := Slovo[i+1];
  end;

Если слово не вертикальное, а горизонтальное, тогда работаем с Setka[Gnezdo[1].x+i][Gnezdo[1].y].
(Gnezdo[1] - это просто для примера, т.е. первое гнездо, а так-то должно быть что-то вида Gnezdo[k].)
Если слово не подошло, берем следующее.
Правка: исправил struct на record. Что-то меня проглючило...

Сообщение отредактировано: volvo - 2.11.2006 12:25