Здравствуйте, создал константный массив записей в программе, но компилятор ругается. Сам код:
Тайп:
Код:
type
TItems = record
name : string;
id : integer;
tag1 : string;
tag2 : string;
tag3 : string;
tag4 : string;
tag5 : string;
tag6 : string;
tag7 : string;
tag8 : string;
desc : string;
comp1 : integer;
comp2 : integer;
comp3 : integer;
comp4 : integer;
comp5 : integer;
comp6 : integer;
comp7 : integer;
comp8 : integer;
comp9 : integer;
sost1 : integer;
sost2 : integer;
sost3 : integer;
sost4 : integer;
sost5 : integer;
sost6 : integer;
sost7 : integer;
sost8 : integer;
end;
Сам константный массив:
Код:
Const
Tmasitems : array [1..112] of TItems = (
(name:'Abyssmal Scepter';id:1;tag1:'spdmg';tag2:'mgrs';desc:'';comp1:66;comp2:11;),
И так далее, 112 штук.
И наконец вар:
Код:
var
Form1: TForm1;
Items : Tmasitems;
Ругается на подсвеченную строку. Пишет:
Цитата:
[DCC Error] Unit1.pas(172): E2007 Constant or type identifier expected
|