Error project1 dpr 11 undeclared identifier mainformontaskbar

помогите исправить ошибку в программе DElphi

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
private
< Private declarations >
public
< Public declarations >
end;

implementation
<$R *.dfm>
function multiply(kodtovara, kolichestvotovara:string; Rezyltat:TMemo):string;
var
Form1:TForm1;
tovar0, zena0, kodtovara0,
tovar1, zena1, kodtovara1,
tovar2, zena2, kodtovara2,
tovar3, zena3, kodtovara3:string;
begin
tovar0:=’Óòþã’; zena0 := ‘150’; kodtovara0 := ‘0057’;
tovar1:=’×àéíèê’; zena1 := ‘47,50’; kodtovara1 := ‘0731’;
tovar2:=’Ïûëåñîñ’; zena2 := ‘431’; kodtovara2 := ‘0201’;
tovar3:=’Îáîãðåâàòåëü’; zena3 := ‘99,99’; kodtovara3 := ‘6099’;
Rezyltat.Clear;
if kodtovara = kodtovara0 then Rezyltat.Text:=’Òîâàð: ‘+tovar0 + ‘, íà ñóììó: ‘ + FloatToStr(StrToFloat(zena0)*StrToFloat(kolichestvotovara))+’ ãðí.’ else
if kodtovara = kodtovara1 then Rezyltat.Text:=’Òîâàð: ‘+tovar1 + ‘, íà ñóììó: ‘ + FloatToStr(StrToFloat(zena1)*StrToFloat(kolichestvotovara))+’ ãðí.’ else
if kodtovara = kodtovara2 then Rezyltat.Text:=’Òîâàð: ‘+tovar2 + ‘, íà ñóììó: ‘ + FloatToStr(StrToFloat(zena2)*StrToFloat(kolichestvotovara))+’ ãðí.’ else
if kodtovara = kodtovara3 then Rezyltat.Text:=’Òîâàð: ‘+tovar3 + ‘, íà ñóììó: ‘ + FloatToStr(StrToFloat(zena3)*StrToFloat(kolichestvotovara))+’ ãðí.’ else
Rezyltat.Text:=’Êîä òîâàðà íå íàéäåí!’;
end;
end.

uses
Forms,
Unit1 in ‘Unit1.pas’ ;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); указывает ошибку в этой строке
Application.Run;
end.

вот такая ошибка
[Error] Project1.dpr(11): Undeclared identifier: ‘Form1’

Источник

Error project1 dpr 11 undeclared identifier mainformontaskbar

[Error] GRGbaza.dpr(9): Identifier expected but ‘BEGIN’ found
[Error] GRGbaza.dpr(11): Statement expected but ‘USES’ found
[Error] GRGbaza.dpr(12): ‘.’ expected but ‘,’ found
[Error] GRGbaza.dpr(21): ‘.’ expected but ‘BEGIN’ found
[Error] GRGbaza.dpr(22): Undeclared identifier: ‘Application’
[Error] GRGbaza.dpr(22): Missing operator or semicolon
[Error] GRGbaza.dpr(23): Missing operator or semicolon
[Error] GRGbaza.dpr(24): Missing operator or semicolon
[Error] GRGbaza.dpr(24): Undeclared identifier: ‘TForm1’
[Error] GRGbaza.dpr(25): Missing operator or semicolon
[Error] GRGbaza.dpr(25): Undeclared identifier: ‘TForm2’
[Error] GRGbaza.dpr(26): Missing operator or semicolon
[Error] GRGbaza.dpr(26): Undeclared identifier: ‘TForm3’
[Error] GRGbaza.dpr(27): Missing operator or semicolon
[Error] GRGbaza.dpr(27): Undeclared identifier: ‘TForm4’
[Error] GRGbaza.dpr(28): Missing operator or semicolon

Пипец какой-то
Заранее спасибо.

код проэкта куда указывает на ошибку

[Error] GRGbaza.dpr(9): but ‘BEGIN’ found

Вольный перевод: Нашли begin когда не ждали!

Находим 9 строку смотрим что там.

А там мы видим тот самый begin хотя мы еще не закрыли(;) блок uses
более того предыдущая строчка недвусмысленно намекает(,) что продолжение объявлений следует Identifier expected.

Источник

Ошибка в Delphi [Error] Project2.dpr(19): Identifier expected but ‘BEGIN’ found Помогите исправить

вот код
program Project2;

uses
Vcl.Forms,
Unit6 in ‘Unit6.pas’ ,
Unit7 in ‘Unit7.pas’ ,
Unit8 in ‘Unit8.pas’ ,
Unit9 in ‘Unit9.pas’ ,
Unit10 in ‘Unit10.pas’ ,
Unit11 in ‘Unit11.pas’ ,
Unit12 in ‘Unit12.pas’ ,
Unit13 in ‘Unit13.pas’ ,
Unit1 in ‘Unit1.pas’ ,
Unit2 in ‘Unit2.pas’ ,
Unit3 in ‘Unit3.pas’ ,

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TForm13, Form13);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
Вот ошибки
[Error] Project2.dpr(19): Identifier expected but ‘BEGIN’ found
[Error] Project2.dpr(20): Undeclared identifier: ‘Application’
[Error] Project2.dpr(20): Missing operator or semicolon
[Error] Project2.dpr(21): Missing operator or semicolon
[Error] Project2.dpr(22): Missing operator or semicolon
[Error] Project2.dpr(22): Undeclared identifier: ‘TForm6’
[Error] Project2.dpr(23): Missing operator or semicolon
[Error] Project2.dpr(23): Undeclared identifier: ‘TForm7’
[Error] Project2.dpr(24): Missing operator or semicolon
[Error] Project2.dpr(24): Undeclared identifier: ‘TForm8’
[Error] Project2.dpr(25): Missing operator or semicolon
[Error] Project2.dpr(25): Undeclared identifier: ‘TForm9’
[Error] Project2.dpr(26): Missing operator or semicolon
[Error] Project2.dpr(26): Undeclared identifier: ‘TForm10’
[Error] Project2.dpr(27): Missing operator or semicolon
[Error] Project2.dpr(27): Undeclared identifier: ‘TForm11’
[Error] Project2.dpr(28): Missing operator or semicolon
[Error] Project2.dpr(28): Undeclared identifier: ‘TForm12’
[Error] Project2.dpr(29): Missing operator or semicolon
[Error] Project2.dpr(29): Undeclared identifier: ‘TForm13’
[Error] Project2.dpr(30): Missing operator or semicolon
[Error] Project2.dpr(30): Undeclared identifier: ‘TForm1’
[Error] Project2.dpr(31): Missing operator or semicolon
[Error] Project2.dpr(31): Undeclared identifier: ‘TForm2’
[Error] Project2.dpr(32): Missing operator or semicolon
[Error] Project2.dpr(32): Undeclared identifier: ‘TForm3’
[Error] Project2.dpr(33): Missing operator or semicolon

Перечисление либо не закончено, либо тут должна быть не запятая.

Источник

This the form and code you need:

//Form file

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = ‘Form1’
  ClientHeight = 341
  ClientWidth = 634
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ‘Tahoma’
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Height = 341
    ExplicitLeft = 280
    ExplicitTop = 192
    ExplicitHeight = 100
  end
  object ShellTreeView1: TShellTreeView
    Left = 0
    Top = 0
    Width = 185
    Height = 341
    ObjectTypes = [otFolders]
    Root = ‘rfDesktop’
    ShellListView = ShellListView1
    UseShellImages = True
    Align = alLeft
    AutoRefresh = False
    Indent = 19
    ParentColor = False
    RightClickSelect = True
    ShowRoot = False
    TabOrder = 0
    OnMouseDown = ShellTreeView1MouseDown
  end
  object Panel1: TPanel
    Left = 188
    Top = 0
    Width = 446
    Height = 341
    Align = alClient
    TabOrder = 1
    ExplicitLeft = 424
    ExplicitTop = 80
    ExplicitWidth = 185
    ExplicitHeight = 41
    object ShellListView1: TShellListView
      Left = 1
      Top = 175
      Width = 444
      Height = 165
      ObjectTypes = [otFolders, otNonFolders]
      Root = ‘rfDesktop’
      ShellTreeView = ShellTreeView1
      Sorted = True
      Align = alBottom
      ReadOnly = False
      HideSelection = False
      OnMouseDown = ShellListView1MouseDown
      TabOrder = 0
      ViewStyle = vsReport
      ExplicitWidth = 404
    end
    object ListView1: TListView
      Left = 1
      Top = 1
      Width = 444
      Height = 174
      Align = alClient
      Columns = <>
      TabOrder = 1
      OnDragDrop = ListView1DragDrop
      OnDragOver = ListView1DragOver
      ExplicitLeft = 3
      ExplicitTop = -5
    end
  end
end

//Code
unit uMain;

interface

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

type
  TForm1 = class(TForm)
    ShellTreeView1: TShellTreeView;
    Splitter1: TSplitter;
    Panel1: TPanel;
    ShellListView1: TShellListView;
    ListView1: TListView;
    procedure ShellListView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ShellTreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
Item : TListItem;
begin
  if (Source is TShellListView) then
    begin
    Item := (Sender as TListView).Items.Add;
    Item.Caption := (Source as TShellListView).SelectedFolder.DisplayName;
    end;

  if (Source is TShellTreeView) then
    begin
    Item := (Sender as TListView).Items.Add;
    Item.Caption := (Source as TShellTreeView).Selected.GetNamePath;
    end;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source is TShellListView) or (Source is TShellTreeView) then
    Accept := True;
end;

procedure TForm1.ShellListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShellListView1.BeginDrag(True);
end;

procedure TForm1.ShellTreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShellTreeView1.BeginDrag(True);
end;

end.