Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
Сатир   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.006 c
14-23773
SPeller
2002-06-06 10:29
2002.07.08
Компилятор Дельфей


8-23684
ev
2002-03-03 14:12
2002.07.08
создать AVI


1-23613
sdram
2002-06-25 15:37
2002.07.08
Как определить имя файла загруженного в TImage


1-23564
Korona
2002-06-27 00:30
2002.07.08
Как можно рисовать на TPopupMenu?


3-23465
PashketSiniz
2002-06-14 15:37
2002.07.08
Копирование файла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский