VPF::Expected an identifier but string found - Форум программистов

Mauglirus

Дата 23.12.2007, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

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

Код


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"???

mr.Anderson

Дата 23.12.2007, 18:27 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

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

Репутация: 3
Всего: 128

Забыл указать модификатор public (вместо него можно private или protected, в зависимости от задачи):

Код


unit Unit2;

interface

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

type
 {TEnterData = class(TForm) }
 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;
{private

public

end; }

var
 EnterData: TEnterData;

implementation

{$R *.dfm}

end.

Это сообщение отредактировал(а) mr.Anderson - 23.12.2007, 18:29

--------------------

Mauglirus

Дата 23.12.2007, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »