Expected an identifier but string found

[Maugli-rus]

Помогите начинающему программисту. Есть код:

unit Unit2;

interface

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

type
{TEnterData = class(TForm) }
TProduct=class
Name: string [15];
ZatrEdProd: real;
PriseEdProd: real;
V_Prod:array[0..m] of real;
A_Prod:array[0..m+1] of real;
end;
{private

public

end; }

var
EnterData: TEnterData;

implementation

{$R *.dfm}

end.

Почему выскакивает ошибка "Expected an identifier but string found"???

[mihali4]

Не знаю, где вы взяли эту ошибку...
В первую очередь компилятор должен ругнуться на вот этот бред:
V_Prod:array[0..m] of real;
A_Prod:array[0..m+1] of real;
Затем вот на это:
TEnterData
Интересно, где вы нашли такой класс?

[Yurk@]

Сообщение от mihali4

Не знаю, где вы взяли эту ошибку...
В первую очередь компилятор должен ругнуться на вот этот бред:
V_Prod:array[0..m] of real;
A_Prod:array[0..m+1] of real;

Значит до этого ещё не дошло дело.
А если изментить код на такой:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
//TProduct = class
end;
{private
public
end;}
var
Form1: TForm1;
Name: string [15];
ZatrEdProd: real;
PriseEdProd: real;
//V_Prod:array[0..m] of real;   //  а терь он ругается на это
A_Prod:array[0..m+1] of real;   //
implementation
{$R *.dfm}
end.

То вроде всё нормально!

Затем вот на это:
TEnterData
Интересно, где вы нашли такой класс?

EnterData - это

{TEnterData = class(TForm) }

- который был отключен!

[Maugli-rus]

Проблему обнаружил. Забыл поставить public

TProduct=class
   public
    Name: string [15];
    ZatrEdProd : real;
    PriseEdProd : real;
    V_Prod : array[0..m] of real;
    A_Prod : array[0..m+1] of real;
  end;