Главная страница
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.057 c
14-1120381468
Nous Mellon
2005-07-03 13:04
2005.07.25
Простой, надеюсь, вопрос по Си


14-1120131224
TQuery
2005-06-30 15:33
2005.07.25
Структура заголовков файлов


14-1120244921
ArMellon
2005-07-01 23:08
2005.07.25
Дайте образ загрузочного диска win98 или Me


1-1120476127
Priest
2005-07-04 15:22
2005.07.25
Запрет прорисовки TPanel


1-1120744358
Jeka123
2005-07-07 17:52
2005.07.25
PUKALL CIPHER 1