| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать объявление константы типа массив с моими записями ?

chelovek ©   (2005-07-07 10:11:00) 

Объявление записи в программе такое:

type
 TMyListParamSet = (psNone, psFirst, psLast);

 TMyParamInfo = packed record
   MyParamSet: TMyListParamSet;
   UserNameParamSet: string[30];
   NameFileParamSet: string[20];
 end;


Констната:
const
UserNameBaseParams: array[0..3] of TMyParamInfo = (( ?),( ?),( ?),( ?));

Вот в этих ( ?) и загвоздка, если пустые скобки, компилируется нормально, а как заполнить их (в этом собственно и дело) не знаю и найти не смог (может не там искал :(). А вообще возможно такое?

---

chelovek   (2005-07-07 10:42:00) [1]

evvcom ©   (07.07.05 10:35) [4]
Так в общем то и есть, просто COPY/PAST и редактирование не очень корректно получилось.

---

chelovek   (2005-07-07 10:35:00) [2]

Ок! Спасибо.

---

evvcom   (2005-07-07 10:35:00) [3]

> TMyListParamSet = (psNone, psFirst, psLast);

Вообще-то это еще не set, я бы обозвал это TMyListParam, и
TMyListParamSet = set of TMyListParam

---

ЮЮ   (2005-07-07 10:25:00) [4]

см Record constants в хелпе:
(
 (
    MyParamSet: psNone;
    UserNameParamSet: 'psNone';
    NameFileParamSet: 'None'
 ),
 (?),
 (?),
 (?)
);

---

Digitman   (2005-07-07 10:20:00) [5]

const
UserNameBaseParams: array[0..1] of TMyParamInfo = (
 ( MyParamSet: psNone;
   UserNameParamSet: 'xxx';
   NameFileParamSet: 'yyy'),

 ( MyParamSet: psFirst;
   UserNameParamSet: 'aaa';
   NameFileParamSet: 'bbb')
 );

---

Наверх