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

[gufon]

Что это [Fatal Error] Project1.dpr(5): Could not compile used unit 'D:\Данил\Ну погоди\Unit1.pas'??? Походу delphi самый тупорылый язык, все работало и вдруг начел ошибки кидать

[gufon]

[Error] Project1.dpr(5): Declaration expected but end of file found их 2

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

Возможно где-то не завершена конструкция begin..end; и мажет не может найти и end.

p.S.
1. delphi это не язык программирования, а это среда разработки.
2. Все с ней нормально, просто нужно внимательность проявить и найти ошибку. Самостоятельно, если это не может зделать компилятор.

[gufon]

а я закрыл открыл delphi и теперь пропала кнопка run

[gufon]

о я что то сделал теперь доступна рун но я нажимаю что то мелькает и пропадает ошибок нет, вот unit.pas

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;

когда пытаюсь создать событие ошибки выдает

[otto07]

попробуй убрать кириллицу из пути))))

D:\Данил\Ну погоди\Unit1.pas

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

Ну яже говорил!!!

Сообщение от Человек_Борща

Возможно где-то не завершена конструкция begin..end; и мажет не может найти и end.

Поставь в конце скрипта end.

[gufon]

не помогло

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

Скиньте весь проект

[gufon]

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