Текущий архив: 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.023 c