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

Вниз

Массивы   Найти похожие ветки 

 
Сатир   (2002-06-23 20:04) [0]

Подскажите, пожалуйста, можно ли создать такой массив, чтоб индексы в нём были не целого типа, а перечисленного?
Напр.,
a[red]:="clRed", т. д. Где-то я видел такой пример в книжке по объектному Паскалю, но уже точно не помню, как точно это делается.:-(
Заранее благодарен за точные инструкции.


 
rhf ©   (2002-06-23 20:15) [1]

так пойдет?

type tColors = (red,yellow,white);
var
colors: array[low(tColor)..high(tColor)] of string;

......

colors[red]:="clRed";


 
Сатир   (2002-06-23 20:16) [2]

о, уже сам вспомнил:
type TCustomType = (red, green, blue);
a:array[low(TCustomType)..high(TCustomType)]of string;


 
Сатир   (2002-06-23 20:36) [3]

и ещё один вопрос по массивам:
есть такой стандартный тип TIdentMapEntry
при объявлении масива этого типа нужно задать целое значение и строковое, напр.,
a:array[1..2]of TIdentMapEntry =
((value:100; name:"one hundred"),
(value:200; name:"two hundreds"));
а как сделать, чтоб полю value можно было бы присваивать значения перечисленного типа?


 
rhf ©   (2002-06-23 20:46) [4]

ну вообщето это видимо запись(record) ..... и когда ее объявляли, то полю value присвоили тип..... и только значения этого типа можно использовать работая с ним......

а зачем тебе это?


 
Юрий Зотов ©   (2002-06-23 21:45) [5]

И даже еще проще:

colors: array[tColors] of string;
a: array[TCustomType] of string;

И будет то же самое.


 
Magic ©   (2002-06-25 10:47) [6]

Of course



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
1-23621
Andrey-k
2002-06-17 21:58
2002.07.08
Создание немодальных MDI окон в DLL-ке


3-23439
vitnt2000
2002-06-14 09:40
2002.07.08
Обработка ошибки связи с сервером


7-23804
Hewer
2002-04-15 10:45
2002.07.08
У кого глюк: у TreeView или у меня?


7-23797
Dankin
2002-04-07 14:51
2002.07.08
Такой-вот странный вопрос, Где находится курсор !!!!


1-23591
Tahion
2002-06-25 10:15
2002.07.08
Как SpeedButton научить преобретать Фокус?