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

Вниз

Как задать массив Record при инициализации?   Найти похожие ветки 

 
Mer01   (2010-03-06 17:29) [0]

Например простой массив так:
const a: array[0..n] of integer = (1,2,3,..);

Как задеть если есть такое:
type r=record s:string; i:integer; end;
const a: array[0..n] of r = ???


 
Игорь Шевченко ©   (2010-03-06 17:37) [1]

в справке синтаксис описан


 
Mer01   (2010-03-06 17:40) [2]

У меня облегченный Delphi, справки там нет


 
Игорь Шевченко ©   (2010-03-06 17:45) [3]

http://lmgtfy.com/?q=%D0%9A%D0%B0%D0%BA+%D0%B2+Delphi+%D0%B7%D0%B0%D0%B4%D0%B0%D1%82%D1%8C+%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2+Record+%D0%BF%D1%80%D0%B8+%D0%B8%D0%BD%D0%B8%D1%86%D0%B8%D0%B0%D0%BB%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D0%B8%3F


 
Вася   (2010-03-06 20:39) [4]


> Игорь Шевченко ©   (06.03.10 17:45) [3]


Смотрим результат, и видим, что по крайней мере на первой странице ответа на наш вопрос увы нет.  А так конечно - да, остроумно.


> Mer01   (06.03.10 17:29)  


вот например из Graphics:

const
 Colors: array[0..51] of TIdentMapEntry = (
   (Value: clBlack; Name: "clBlack"),
   (Value: clMaroon; Name: "clMaroon"),
   (Value: clGreen; Name: "clGreen"),
   (Value: clOlive; Name: "clOlive"),
   (Value: clNavy; Name: "clNavy"),
   (Value: clPurple; Name: "clPurple"),
   (Value: clTeal; Name: "clTeal"),
   (Value: clGray; Name: "clGray"),
   (Value: clSilver; Name: "clSilver"),
   (Value: clRed; Name: "clRed"),
   (Value: clLime; Name: "clLime"),
   (Value: clYellow; Name: "clYellow"),
   (Value: clBlue; Name: "clBlue"),
   (Value: clFuchsia; Name: "clFuchsia"),
   (Value: clAqua; Name: "clAqua"),
   (Value: clWhite; Name: "clWhite"),

   (Value: clMoneyGreen; Name: "clMoneyGreen"),
   (Value: clSkyBlue; Name: "clSkyBlue"),
   (Value: clCream; Name: "clCream"),
   (Value: clMedGray; Name: "clMedGray"),

   (Value: clActiveBorder; Name: "clActiveBorder"),
   (Value: clActiveCaption; Name: "clActiveCaption"),
   (Value: clAppWorkSpace; Name: "clAppWorkSpace"),
   (Value: clBackground; Name: "clBackground"),
   (Value: clBtnFace; Name: "clBtnFace"),
   (Value: clBtnHighlight; Name: "clBtnHighlight"),
   (Value: clBtnShadow; Name: "clBtnShadow"),
   (Value: clBtnText; Name: "clBtnText"),
   (Value: clCaptionText; Name: "clCaptionText"),
   (Value: clDefault; Name: "clDefault"),
   (Value: clGradientActiveCaption; Name: "clGradientActiveCaption"),
   (Value: clGradientInactiveCaption; Name: "clGradientInactiveCaption"),
   (Value: clGrayText; Name: "clGrayText"),
   (Value: clHighlight; Name: "clHighlight"),
   (Value: clHighlightText; Name: "clHighlightText"),
   (Value: clHotLight; Name: "clHotLight"),
   (Value: clInactiveBorder; Name: "clInactiveBorder"),
   (Value: clInactiveCaption; Name: "clInactiveCaption"),
   (Value: clInactiveCaptionText; Name: "clInactiveCaptionText"),
   (Value: clInfoBk; Name: "clInfoBk"),
   (Value: clInfoText; Name: "clInfoText"),
   (Value: clMenu; Name: "clMenu"),
   (Value: clMenuBar; Name: "clMenuBar"),
   (Value: clMenuHighlight; Name: "clMenuHighlight"),
   (Value: clMenuText; Name: "clMenuText"),
   (Value: clNone; Name: "clNone"),
   (Value: clScrollBar; Name: "clScrollBar"),
   (Value: cl3DDkShadow; Name: "cl3DDkShadow"),
   (Value: cl3DLight; Name: "cl3DLight"),
   (Value: clWindow; Name: "clWindow"),
   (Value: clWindowFrame; Name: "clWindowFrame"),
   (Value: clWindowText; Name: "clWindowText"));


 
Игорь Шевченко ©   (2010-03-06 20:44) [5]


> Смотрим результат, и видим, что по крайней мере на первой
> странице ответа на наш вопрос увы нет


Какая жалость.


 
sniknik ©   (2010-03-06 21:24) [6]

> Смотрим результат, и видим, что по крайней мере на первой странице ответа на наш вопрос увы нет.
как вы смотрите? или вернее куда? зашел в первую ссылку, нашел ответ. зашел во вторую... тоже нашел. дальше смотреть не стал. ладно верю, пусть там дальше нет, но первые то две ссылки оставь. сними проклятье "увы" со всей страницы...



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

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

Наверх




Память: 0.48 MB
Время: 0.045 c
15-1273558498
@!!ex
2010-05-11 10:14
2010.08.27
Дешевое копирование выходит за рамки ПО.


15-1269466202
Юрий
2010-03-25 00:30
2010.08.27
С днем рождения ! 25 марта 2010 четверг


2-1268210746
Sw_
2010-03-10 11:45
2010.08.27
Combobox в DBGrid


15-1270672202
Юрий
2010-04-08 00:30
2010.08.27
С днем рождения ! 8 апреля 2010 четверг


2-1270656345
Беликов А.А,
2010-04-07 20:05
2010.08.27
ADOQuery и TThread