Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

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

 
chelovek   (2005-07-07 10:11) [0]

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

type
 TMyListParamSet = (psNone, psFirst, psLast);

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


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


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


 
Digitman ©   (2005-07-07 10:20) [1]

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

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


 
ЮЮ ©   (2005-07-07 10:25) [2]

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


 
chelovek   (2005-07-07 10:35) [3]

Ок! Спасибо.


 
evvcom ©   (2005-07-07 10:35) [4]


> TMyListParamSet = (psNone, psFirst, psLast);

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


 
chelovek   (2005-07-07 10:42) [5]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.054 c
1-1120502611
Galiaf
2005-07-04 22:43
2005.07.25
tstringlist не находит файл!


14-1120151731
kaif
2005-06-30 21:15
2005.07.25
Должен ли гурман жарить на тефлоне?


1-1120733493
kyn66
2005-07-07 14:51
2005.07.25
Перевести исходник СИ++ на Паскаль


10-1097643914
Rem
2004-10-13 09:05
2005.07.25
Интерфейсы


14-1119959626
DVM
2005-06-28 15:53
2005.07.25
Вопрос знатокам FreeBSD (Unix). Не работает PHP!