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

[-LOVE133-]

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

[Бродяжник]

if horizontal then
    begin
      okgor:=true;
      i:=0;
      while okgor and ( i <len) do
        begin
          if (bukv[x,y+i]=' ') then
            begin
              okgor:=true; 
              ok:=true;
              inc(i);
            end
          else if  (bukv[x,y+i]<>s[i])
            then
              begin
                okgor:=false
              end
          else inc(i);
       end; 

В этом фрагменте

          if (bukv[x,y+i]=' ') then
            begin
              okgor:=true; { ВОТ ЭТО ЛИШНЕЕ }
              ok:=true;
              inc(i);
            end

Лишнее, потому что okgor перед входом в цикл уже true, а как только оно станет не трю, цикл завершается, поэтому внутри цикла делать его трю не имеет смысла.
По поводу репитов-антилов Вы разобрались? Как только Вы заполнили сетку и нажали клавишу, автоматически выполняется проверка, и если все ОК, тогда с:=5, и тут же происходит выход из всех циклов и завершение программы. Так и должно быть по Вашей программе.
Я посмотрел выложенный код... если Вы не против, я бы немного изменил подход к работе с мышью. Если Вам интересно, я выложу подправленный вариант. В текущем варианте мне не всегда удавалось сбросить помеченную клетку.
По поводу рекурсии... можно ли оформить поиск слова в словаре и проверку по гнезду в отдельные функции такого вида:

function NewWord(dlina: integer): string;
begin
  {возвращает слово заданной длины. 
  при этом надо как-то учитывать те слова, 
  что уже были выбраны ранее.}
end;

function GoodWord(s: string; i: integer): boolean;
begin
  {возвращает true, если слово, заданное строкой s, 
   можно вписать в гнездо с номером i}
end;

Тогда рекурсивная функция могла бы выглядеть как-то так:

function CheckNext(i: integer): boolean;
var s: string;
begin
  if i > числа_гнезд then {все гнезда проверены}
    begin
       CheckNext := true;  {шабаш}
       exit;
    end;

    repeat

      s := NewWord(Gnezdo[i].len);  {выбираем слово из словаря}

      if GoodWord(s,i) {слово хорошее}
         then 
           begin
              if CheckNext(i+1) then   {вызываем рекурсию}
                 begin
                    CheckNext := true;
                    exit;
                 end;
           end;
    until больше_нет_слов_такой_длины;

    CheckNext := false; {заполнить гнездо так и не удалось}
end;

Сложность будет с проверкой условия больше_нет_слов_такой_длины и организацией работы с функцией NewWord. Добрые у вас преподаватели...

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