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

[-LOVE133-]

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

[Бродяжник]

Привет!
В последнем выложенном файле есть как минимум следующие ошибки:
1. Еще раз возвращаюсь к разнице между text и file of string. Ваш словарь - это text, а не file of string. Поэтому к нему нельзя обращаться, как к file of string. В частности, нельзя использовать процедуру seek. Сделайте следующую вещь: напишите маленькую программу такого вида:

program test;
var f1: text; 
    f2: file of string;
    p,m: string;
begin
  p := 'Preved';
  m := 'Medved';
  assign(f1,'f1.txt');
  rewrite(f1);
  assign(f2,'f2.txt');
  rewrite(f2);
  writeln(f1,p);
  writeln(f1,m);
  write(f2,p);
  write(f2,m);
  close(f1);
  close(f2);
end;

А потом сравните файлы f1.txt и f2.txt. И найдите 10 отличий.
Поэтому считывание слова из словаря (GEt_word_from_sl) не работает.
2. Теперь к функции Maska_Slova, конкретно вот к этому фрагменту:

with gnezdo do            
 begin                     
  i:=0;
  if horizontal then
  begin
    while i<len do
   begin
    inc(i);
    str:=str +text[x,y];
    inc(y);
   end;
   end

Если if horizontal, то почему увеличивается игрек? Ведь это вертикальная координата?
3. Процедура Get_Gnezda (я уже об этом упоминал).

for i:=1 to n do
    for j:=1 to n do
     begin
       if (a[i,j]=1)  and (a[i-1,j]<>1 )and (a[i+1,j]=1 )then

Если индекс i отсчитывается от единицы, это значит, что будет обращение к ячейке a[i-1,j] то есть a[0,j]. А такой ячейки нет. Поэтому такое обращение даст ошибку. Значит, надо учитывать эту особенность - если клетка находится в 1 столбце, у нее не может быть соседей слева. То же самое касается клеток первой строки: у них не может быть соседей сверху. Чтобы это учесть, я в своих экспериментах написал функцию, которая при обращении к несуществующим ячейкам ведет себя так, как если бы там были "небуквенные" ячейки. Вы можете обойти это по-другому, но эту проблему надо решить.
4. Вы вставили в функцию ARBEIT присваивание

ng := 1;

Это не совсем то, что требовалось, потому что это напрочь убило рекурсию. Это нужно было прописать перед первым вызовом ARBEIT:

if a[i,j]=1 then bukv[i,j]:=' ' else bukv[i,j]:='0';
Get_gnezda(a, gnezdo,n, q);
ng := 1;
if ARBEIT( bukv,Ng) then ok:=true ;

Или просто

if ARBEIT( bukv,1) then ok:=true ;

Для начала разберитесь с этим.