[Fatal Error] Project1.dpr(5): Could not compile used unit 'D:\Данил\Ну погоди\Unit1.pas'

[ArtGrek]

type
  TForm1 = class(TForm)
    Image1: TImage;
    up: TImage;
    right: TImage;
    down: TImage;
    left: TImage;
    Label1: TLabel;
    volk: TImage;
    zayac: TImage;
 private
    { Private declarations }
  public
    { Public declarations }
  end;

удали то что я убрал, а потом заного создаваи ети события, должны появица пустые шаблоны, если появяца удали
если не понял, пересоздаи проект, быстрее получица

[Человек_Борща]

Вам вообще что надо-то?
Чтобы проект собирался или руки в правильные места вставить?

Скиньте весь проект, покажу где ваши ошибки...

[gufon]

http://narod.yandex.ru/disk/67048050...0%B4%D0%B8.rar кто может привести в рабочее состояние


да и еще, все началось как я добавил обычные кнопки к одной прописал код и захотел к остальным вот он выбил первую ошибку и началось, я же говорю тупорылый

[Человек_Борща]

а где dpr файл? На кой мне бесполезные dcu и exe(нерабочий) весом в 1,4 метра?

p.S. вот исправленный:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    up: TImage;
    right: TImage;
    down: TImage;
    left: TImage;
    Label1: TLabel;
    volk: TImage;
    zayac: TImage;
    procedure rightClick(Sender: TObject);
    procedure leftClick(Sender: TObject);
    procedure upClick(Sender: TObject);
    procedure downClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   hodi: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hodi:=3;
end;

procedure TForm1.rightClick(Sender: TObject);
begin
if (volk.Left+48)<=536 then
if not((volk.Left+48=296) and (volk.top=211)) then
if not((volk.Left+48=392) and (volk.top=211)) then
if not((volk.Left+48=488) and (volk.top=211)) then
if not((volk.Left+48=296) and (volk.top=307)) then
if not((volk.Left+48=392) and (volk.top=307)) then
if not((volk.Left+48=488) and (volk.top=307)) then
if not((volk.Left+48=296) and (volk.top=403)) then
if not((volk.Left+48=392) and (volk.top=403)) then
if not((volk.Left+48=488) and (volk.top=403)) then
Begin
volk.Left:= volk.Left+48; hodi:= hodi-1; Label1.Caption:= inttostr(hodi);
if hodi=0 then
Begin
hodi:=3; Label1.Caption:= inttostr(hodi);
end;
end;
end;

procedure TForm1.leftClick(Sender: TObject);
begin
if (volk.Left-48)>=248 then
if not((volk.Left-48=296) and (volk.top=211)) then
if not((volk.Left-48=392) and (volk.top=211)) then
if not((volk.Left-48=488) and (volk.top=211)) then
if not((volk.Left-48=296) and (volk.top=307)) then
if not((volk.Left-48=392) and (volk.top=307)) then
if not((volk.Left-48=488) and (volk.top=307)) then
if not((volk.Left-48=296) and (volk.top=403)) then
if not((volk.Left-48=392) and (volk.top=403)) then
if not((volk.Left-48=488) and (volk.top=403)) then
Begin
volk.Left:= volk.Left-48; hodi:= hodi-1; Label1.Caption:= inttostr(hodi);
if hodi=0 then
Begin
hodi:=3; Label1.Caption:= inttostr(hodi);
end;
end;
end;

procedure TForm1.upClick(Sender: TObject);
begin
if (volk.Top-48)>=163 then
if not((volk.Left=296) and (volk.top-48=211)) then
if not((volk.Left=392) and (volk.top-48=211)) then
if not((volk.Left=488) and (volk.top-48=211)) then
if not((volk.Left=296) and (volk.top-48=307)) then
if not((volk.Left=392) and (volk.top-48=307)) then
if not((volk.Left=488) and (volk.top-48=307)) then
if not((volk.Left=296) and (volk.top-48=403)) then
if not((volk.Left=392) and (volk.top-48=403)) then
if not((volk.Left=488) and (volk.top-48=403)) then
Begin
volk.Top:= volk.Top-48; hodi:= hodi-1; Label1.Caption:= inttostr(hodi);
if hodi=0 then
Begin
hodi:=3; Label1.Caption:= inttostr(hodi);
end;
end;
end;

procedure TForm1.downClick(Sender: TObject);
begin
if (volk.Top+48)<=451 then
if not((volk.Left=296) and (volk.top+48=211)) then
if not((volk.Left=392) and (volk.top+48=211)) then
if not((volk.Left=488) and (volk.top+48=211)) then
if not((volk.Left=296) and (volk.top+48=307)) then
if not((volk.Left=392) and (volk.top+48=307)) then
if not((volk.Left=488) and (volk.top+48=307)) then
if not((volk.Left=296) and (volk.top+48=403)) then
if not((volk.Left=392) and (volk.top+48=403)) then
if not((volk.Left=488) and (volk.top+48=403)) then
Begin
volk.Top:= volk.Top+48; hodi:= hodi-1; Label1.Caption:= inttostr(hodi);
if hodi=0 then
Begin
hodi:=3; Label1.Caption:= inttostr(hodi);
end;
end;
end;
end. //!!

[ArtGrek]

а проект где??? ))))))))
Project1.DPR


PS> среда в которои я не умею работать и плохая среда ето не обязятельно одно и тоже

[gufon]

щя вроде все норм, не ошибок действия создаются, но не могу проиграть его

а dpr нет у меня эт все что есть

[ArtGrek]

надо было
Project1.dpr
end. как было сказано выше
и удлить 2 твоих последних
end;
end;

[gufon]

Ура, спасибо огромное ато я уже расстроился, а как в dpr сохранять???

[ArtGrek]

любую, книжку по Delphi взять и прачесть гдет первые 3 странички, после введения,
мне интересно, как ты еше ето смог написать?

[gufon]

я написал прогу которая заходила на гугл транслейт, передовала ему текст и забирала перевод, а с интерфейсом программы неоч


да и язык не первый, до этого php, js и actionscript (Аудио видео плеер напишу) и с++ но он мне показался сложноват тем что там это окно и заморочек много для нормальный окон


_______________
Форум - не чат!
Правилами запрещается публиковать подряд несколько своих коротких сообщений!
Есть что добавить к сказанному Вами же —
нажимайте кнопка "Правка" на Вашем сообщении и добавляйте туда!

Модератор.