Текущий архив: 2003.08.07;
Скачать: CL | DM;

Вниз

Типы   Найти похожие ветки 

← →
Duran ©   (2003-07-25 11:05) [0]

type
TForm1 = class(TForm);
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX:MAS;
X,Xnew:MASX;
BS,Bvsp,ZNAC:MASB;

возникает ошибка
[Error] Unit1.pas(18): "=" expected but identifier "public" found

---

← →
Толик ©   (2003-07-25 11:09) [1]

А private (и всё что дальше) к какому классу относиться???

---

← →
Duran ©   (2003-07-25 11:11) [2]

Чего??? :)

---

← →
___Nikolay ©   (2003-07-25 11:13) [3]


var
Form1: TForm1;

Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX: array[1..30] OF REAL;
BS,Bvsp,ZNAC: ARRAY[1..30] OF STRING[3];
X,Xnew: ARRAY[1..30,1..30] OF REAL;


---

← →
Radionov Alexey ©   (2003-07-25 11:14) [4]

Вытащи из TForm1 наружу
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

Вот так:

type
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

TForm1 = class(TForm);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX:MAS;
X,Xnew:MASX;
BS,Bvsp,ZNAC:MASB;


---

← →
NickBat ©   (2003-07-25 11:15) [5]

type
TForm1 = class(TForm);
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;
end;

---

← →
Плохиш   (2003-07-25 11:16) [6]

Duran © (25.07.03 11:11)
Чего??? :)

Что "Чего?"?
Ты ещё раз прочитай, что написал и всё поймёшь.

---

← →
Duran ©   (2003-07-25 11:18) [7]

Radionov Alexey

все равно такаяже проблема

---

← →
Duran ©   (2003-07-25 11:19) [8]

Народ может я вам лучше файлик дам и вы так поймете, а то до меня туго доходит

---

← →
Guerrillero ©   (2003-07-25 11:27) [9]

type
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

TForm1 = class(TForm)

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX:MAS;
X,Xnew:MASX;
BS,Bvsp,ZNAC:MASB;
Без ; после TForm1 = class(TForm)

---

← →
Плохиш   (2003-07-25 11:29) [10]

Duran © (25.07.03 11:19)
Кому он нужен?

На раз думать лень:


type
TForm1 = class(TForm);
private
{ Private declarations }
public
{ Public declarations }
end;

TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

var
Form1: TForm1;
Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX:MAS;
X,Xnew:MASX;
BS,Bvsp,ZNAC:MASB;


---

← →
Плохиш   (2003-07-25 11:31) [11]

Без ; после TForm1 = class(TForm)
Точно

---

← →
Duran ©   (2003-07-25 11:33) [12]

type
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

TForm1 = class(TForm)

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Fo,FunctPr,B,H,Hnew,C,Cnew,CPr,CPrnew,FX:MAS;
X,Xnew:MASX;
BS,Bvsp,ZNAC:MASB;

[Error] Unit1.pas(24): Undeclared identifier: "MAS"
[Error] Unit1.pas(25): Undeclared identifier: "MASX"
[Error] Unit1.pas(26): Undeclared identifier: "MASB"

---

← →
Толик ©   (2003-07-25 11:37) [13]

А перед MAS, MASX и MASB буковку T нарисовать?

---

← →
Юрий Зотов ©   (2003-07-25 11:40) [14]

Беда...

А Вы посмотрите внимательно - чем отличается необъявленный тип MAS от объявленного TMAS?

---

← →
Duran ©   (2003-07-25 11:41) [15]

Толик ©
Хех работает

---

← →
Anatoly Podgoretsky ©   (2003-07-25 13:34) [16]

Слишком много ошибок в коде, точнее одна сплошаня ошибка.
Его надо полность переписать. Точнее только первые пять строк правильные, но зато делают не то что задумано.
type
TForm1 = class(TForm);
TMAS = array[1..30] OF REAL;
TMASB = ARRAY[1..30] OF STRING[3];
TMASX = ARRAY[1..30,1..30] OF REAL;

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.07;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.013 c