Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Непонятная синтаксическая ошибка, [Fatal Error] Полная... рекурсия 
:(
    Опции темы
Fhusy
Дата 16.11.2006, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 16.11.2006

Репутация: нет
Всего: нет
 1.    [Fatal Error] Unit1.pas(46): Program or unit 'Unit1' recursively uses itself
       Удаляю из списка Uses Unit1
             Появляется следующее:
         2.               Form 'Form1' references form 'Form1' declared in unit 'Unit1' which is not in your USES list.
                                  Do you wish to add it?
         Жму OK, компилирую, повторяется шаг 1. Если не внести в USES Unit1 то:
                           Появляется ошибка Undeclared identifier 'Form1'


          На всякий случай листинг:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
         private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fon,air,buf,buf1,air1,buf2,buf3,buf4:tbitmap;//фон самолет1,
  //самолет2, буферa
   fonrct,fonrct1,fonrct2,fonrct3,fonrct4:Trect; //область фона которая должна быть
    //восстановлена из буфера
   Bufrct,bufrct1,bufrct2,bufrct3,bufrct4:Trect;//область буфера которая используется
   //для восстановления фона
   a,b,x1,y1:integer;//текущее положение самолета
   w,h,w1,h1:integer;//размеры самолета
   t:integer;//координаты мыши в текущий момент
    bomb:tbitmap;//битовый образ в который загружается изображение
    //бомбы
     bombuf:tbitmap;//буфер для бомбы
    bombrct:trect;//область буфера используемая для
    //восстановления фона
    bombfon:trect;//область фона которая будет
    //восстановлена из фона
      fau1,fau2:integer;//текущее положение самолета
      n1,n2:integer;//размеры бомбы

implementation
  uses unit2, unit3, Unit1;
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
//создать восемь объектов - битовых образа
  fon:=tbitmap.Create;//фон
  buf2:=tbitmap.Create;//буферная зона
  air:=tbitmap.Create;//самолет1
  buf:=tbitmap.Create;//буфер для 1 самолета бомбардировщика
  buf1:=tbitmap.Create;//буфер для самолета истребителя
    air1:=tbitmap.Create;//самолет истребитель
    buf3:=tbitmap.Create;//буфер-патч
    buf4:=tbitmap.Create;//буфер-патч
    bombuf:=tbitmap.create;//буфер бомбы
    //загрузить и вывести фон
     fon.LoadFromFile('C:\Documents and Settings\user\1.bmp');
         form1.Image1.Stretch:=true;
         form1.image1.Canvas.Draw(0,0,fon);
              fon.Height:=768;
              fon.Width:=1024;
           //загрузить картинку которая будет двигаться
     if a1=1 then begin
        air.LoadFromFile('C:\Documents and Settings\user\2.bmp');
     end;
      if a2=1 then begin
        air.LoadFromFile('C:\Documents and Settings\user\21.bmp');
      end;
       if a3=1 then begin
         air.LoadFromFile('C:\Documents and Settings\user\22.bmp');
       end;
      if a4=1 then begin
         air.LoadFromFile('C:\Documents and Settings\user\25.bmp');
      end;
        if a5=1 then begin
           air.LoadFromFile('C:\Documents and Settings\user\23.bmp');
        end;
         if a6=1 then begin
            air.LoadFromFile('C:\Documents and Settings\user\24.bmp');
         end;
           if a7=1 then begin
              air.LoadFromFile('C:\Documents and Settings\user\26.bmp');
           end;
             if (a1=0)and(a2=0)and(a3=0)and(a4=0)and(a5=0)and(a6=0)and(a7=0) then
               air.LoadFromFile('C:\Documents and Settings\user\2.bmp');
      air1.LoadFromFile('C:\Documents and Settings\user\4.bmp');
          //определим прозрачный цвет
         air.Transparent:=true;
         air.TransparentColor:=air.Canvas.Pixels[1,1];
          air1.Transparent:=true;
          air1.TransparentColor:=air1.Canvas.Pixels[1,1];
          //создать буфер для сохранения копии области фона
         //на которую накладывается самолет
         w:=air.Width;
         h:=air.Height;
             w1:=air1.Width;
         h1:=air1.Height;
           buf.Width:=w;
           buf.Height:=h;
             buf1.Width:=w1;
             buf1.Height:=h1;
                  buf2.Width:=w;
                  buf2.Height:=h;
                     buf3.Height:=h;
                     buf3.Width:=w;
                        buf4.Width:=w;
                        buf4.Height:=h;
                buf.Palette:=air.Palette;
               buf1.Palette:=air1.Palette;
                 buf2.Palette:=air.Palette;
                 buf3.Palette:=air.Palette;
               buf4.Palette:=air.Palette;
          //Чтобы обеспечить соответствие палитр
            buf.Canvas.CopyMode:=cmSrcCopy;
            buf1.Canvas.CopyMode:=cmsrccopy;
             buf3.Canvas.CopyMode:=cmsrccopy;
             buf4.Canvas.CopyMode:=cmsrccopy;
            //определим область буфера которая будет
           //использоваться для восстановления фона
       bufrct:=bounds(0,0,w,h);
       bufrct1:=bounds(0,0,w1,h1);
       bufrct2:=bounds(0,0,w,h);
       bufrct3:=bounds(0,0,w,h);
       bufrct4:=bounds(0,0,w,h);
          //начальное положение картинки
        a:=-w;
          x1:=form1.Width;
           //определим сохраняемую область фона
            fonrct:=bounds(a,b,w,h);
             fonrct1:=bounds(x1,y1,w1,h1);
             fonrct2:=bounds(a,air.Height,w,h);
             fonrct3:=bounds(a-air.Width,b,w,h);
             fonrct4:=bounds(a,b-air.Height,w,h);
          //и сохраним её
               buf.Canvas.CopyRect(bufrct,fon.Canvas,fonrct);
               buf1.Canvas.CopyRect(bufrct1,fon.Canvas,fonrct1);
              buf2.Canvas.CopyRect(bufrct2,fon.Canvas,fonrct2);
               buf3.Canvas.CopyRect(bufrct3,fon.Canvas,fonrct3);
                buf4.Canvas.CopyRect(bufrct4,fon.Canvas,fonrct4);
              form1.Image1.Stretch:=true;
   end;
   //обработка сигнала таймера


procedure TForm1.Timer1Timer(Sender: TObject);
begin
//восстановлением фона(из буфера) удалим рисунок
  form1.image1.Canvas.Draw(a,b,buf);
      a:=a+1;
      fau2:=fau2+1;
        if a>form1.image1.Width then a:=-w;
          //определим сохраняемую область фона
           fonrct:=bounds(a,b,w,h);
           fonrct3:=bounds(a-air.Width,b,w,h);
           fonrct2:=bounds(a,b+air.Height,w,h);
           fonrct4:=bounds(a,b-air.Height,w,h);
           bombfon:=bounds(fau1,fau2,n1,n2);
           //и сохраним её копию
         buf.Canvas.CopyRect(bufrct,fon.Canvas,fonrct);
         buf2.Canvas.CopyRect(bufrct2,fon.Canvas,fonrct2);
            buf3.Canvas.CopyRect(bufrct3,fon.Canvas,fonrct3);
          buf4.Canvas.CopyRect(bufrct4,fon.Canvas,fonrct4);
           bombuf.
           //выведем рисунок
         Form1.image1.Canvas.Draw(a,b,air);
         form1.Image1.Canvas.Draw(a,b+air.Height,buf2);
         form1.Image1.Canvas.Draw(a-air.Width,b,buf3);;
         form1.Image1.Canvas.Draw(a,b-air.Height,buf4);

            if ((x1>=a)and(x1<=a+air.Width))and((y1<=b+air.Height)and(y1+air1.Height>=b)) then begin
                timer1.Enabled:=false;
                showmessage('Столкновение неизбежно.Ты проиграл!');
                form1.Visible:=false;
                form2.Visible:=true;
                end;
                  //восстановлением фона(из буфера) удалим рисунок
  form1.image1.Canvas.Draw(x1,y1,buf1);
     x1:=x1-10;
        if x1<-air1.Width then begin
           x1:=form1.Width;
           y1:=random(456);
       end;
          //определим сохраняемую область фона
           fonrct1:=bounds(x1,y1,w1,h1);
       //и сохраним её копию
         buf1.Canvas.CopyRect(bufrct1,fon.Canvas,fonrct1);
       //выведем рисунок
         form1.image1.Canvas.Draw(x1,y1,air1);
           end;





procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
air.Free;
fon.Free;
air1.Free;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  b:=trunc(y/2);
  t:=y-1;
end;

{procedure TForm1.FormClick(Sender: TObject);
begin
   bomb:=tbitmap.Create;
     bomb.LoadFromFile('C:\Documents and Settings\user\30.bmp');
     bomb.Transparent:=true;
       fau1:=a;
       fau2:=b+air.Height;
           n1:=bomb.Height;
           n2:=bomb.Width;
   end; }

end.
PM MAIL   Вверх
Yanis
Дата 16.11.2006, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Справку читать пробовал?

Добавлено @ 14:48 
Не надо писать имя класса в его методе, если обращаешься к его свойствам. Т.е. не "form1.Image1.Stretch:=true;", но "Image1.Stretch:=true;". Я уверен, что глюк из-за этого.

Это сообщение отредактировал(а) Yanis - 16.11.2006, 14:49


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Nicholas_S
Дата 16.11.2006, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 19
Yanis, фигню говоришь. Нет разницы как обращаться, убрав "form1." компилятор знает, что работает в окружении объекта form1.

Fhusy, проверь .dpr файл. Если не вылечишь - кинь архив проекта сюды (можешь без unitXXX, кроме unit1, конечно).


--------------------
...все в мире относительно
PM   Вверх
Reptile
Дата 16.11.2006, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3
Цитата(Yanis @  16.11.2006,  14:42 Найти цитируемый пост)
Не надо писать имя класса в его методе, если обращаешься к его свойствам. Т.е. не "form1.Image1.Stretch:=true;", но "Image1.Stretch:=true;". Я уверен, что глюк из-за этого.

Согласен с Nicholas_S, я когдато тоже так писал
Код

form1.Image1.Stretch:=true;

и все работало отлично.
PM MAIL   Вверх
Sunvas
Дата 16.11.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(Fhusy @  16.11.2006,  14:24 Найти цитируемый пост)
Program or unit 'Unit1' recursively uses itself

Дык все же из сообщения. Ты где-то с Uses-ами напутал, ведь у тебя же не один юнит!

Цитата(Fhusy @  16.11.2006,  14:24 Найти цитируемый пост)
uses unit2, unit3, Unit1;




--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
bems
Дата 17.11.2006, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Проблема действительно в обращении к form1.
Это не обращение к классу, а к переменной - экземпляру, которая объявлена в интерфейсной секции. Которая может быть обработана только после реализации. А реализация обращается к form1 из интерфейса. Вот тебе и рекурсия.

Добавлено @ 09:40 
Цитата(Nicholas_S @  16.11.2006,  15:38 Найти цитируемый пост)
 компилятор знает, что работает в окружении объекта form1.
Откуда он может это знать? А если ты где-то еще создашь десяток экземпляров этого класса, то что все они должны работать с полями того, ссылка на который храниться в переменной form1? Или все-таки каждый со своими?


Это сообщение отредактировал(а) bems - 17.11.2006, 09:35


--------------------
Обижено школьников: 8
PM MAIL   Вверх
bems
Дата 17.11.2006, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
правильно будет self.Image1.Stretch:=true;


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Nicholas_S
Дата 17.11.2006, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 19
bems, "Василий, ты не прав" (с). Обращение должно идти к имени переменной класса типа TForm1, которая называется form1. Причем тут рекурсия? Ты запусти Borland Delphi и проверь - убедись, что в методе формы компилятору можно указать объект по-разному: либо именем, либо без него.

Автор разобрался или все же пришлет код?  smile 


--------------------
...все в мире относительно
PM   Вверх
bems
Дата 17.11.2006, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Цитата(Nicholas_S @  17.11.2006,  14:35 Найти цитируемый пост)
Обращение должно идти к имени переменной класса типа TForm1, которая называется form1
Нет, обращение должно идти к тому экземпляру класса, в контексте которого в рантайме будет выполняться метод. TForm1 и form1 - разные вещи.

Цитата(Nicholas_S @  17.11.2006,  14:35 Найти цитируемый пост)
 Причем тут рекурсия?

рекурсии нет, я был не прав. Но помоему все же для случая двух форм этого класса стоит убрать form1


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Nicholas_S
Дата 17.11.2006, 16:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 19
bems, мы рассматриваем конкретный пример, 1 юнит - 1 форма. TForm1 & form1 - разные, никто не спорит. Проблема, поверь, не в этом.


--------------------
...все в мире относительно
PM   Вверх
bems
Дата 17.11.2006, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Цитата(Nicholas_S @  17.11.2006,  16:32 Найти цитируемый пост)
Проблема, поверь, не в этом. 
верю



--------------------
Обижено школьников: 8
PM MAIL   Вверх
Nicholas_S
Дата 17.11.2006, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 19
Ну и отлично  smile



M
Girder		Не оффтопь



--------------------
...все в мире относительно
PM   Вверх
Fhusy
Дата 18.11.2006, 07:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 16.11.2006

Репутация: нет
Всего: нет
Ребята я разобрался. Проблема была между 167 и 168 строчкой:

Код

buf4.Canvas.CopyRect(bufrct4,fon.Canvas,fonrct4);
           bombuf.    ' вот она  эта ошибка'
           //выведем рисунок
         Form1.image1.Canvas.Draw(a,b,air);
         form1.Image1.Canvas.Draw(a,b+air.Height,buf2);
         form1.Image1.Canvas.Draw(a-air.Width,b,buf3);;


Спасибо 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0873 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.