Главная страница
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.015 c
7-23817
Yaro
2002-04-12 10:08
2002.07.08
Использование стороннего ActiveX a во время выполнения программы.


7-23816
ATLANTIDO
2002-03-09 00:11
2002.07.08
без asmы


6-23693
Filat
2002-04-10 17:20
2002.07.08
Обмен файлами между организацией и её клиентами через Интернет?


14-23781
Новеньки в Делфи
2002-06-08 22:31
2002.07.08
Перспектвы Delphi


1-23530
INCOGNITO
2002-06-24 00:34
2002.07.08
Мерцание изображения (TImage