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

Вниз

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

 
heady   (2004-03-26 19:47) [0]

Hi, All! есть ~30 точек, покрасивше (покороче) поместить их в массив X, а то писать x[1]:=123, x[1]:=432... не хочется, к примеру в фортране это делается в блоке DATA, а в сях просто через запятую... Зарание благодарен.


 
KSergey ©   (2004-03-26 20:28) [1]

могу немного напутать с синтаксисом - пользуюсь редко. Подробности и примеры - см. справка.

array a of Integer = (1, 2, 3, 4, 5, 6)

Можно и размеры задать, если надо


 
Anton ©   (2004-03-26 21:02) [2]

Да, немного по другому ;)
const a:array[1..5] of Integer = (1,2,3,4,5);


 
heady   (2004-03-26 21:07) [3]

Спасибо! а можно ли не в константах?


 
Romkin ©   (2004-03-26 21:21) [4]

Можно написать var вместо const :)))


 
Anton ©   (2004-03-26 23:28) [5]

2 heady
Это типизированная константа, ее значение можно переприсваивать.


 
DrPass ©   (2004-03-27 00:32) [6]

Не факт. По умолчанию присваивание значений типизированным константам запрещено (включается {$J+} )


 
lyeh ©   (2004-03-27 00:37) [7]

DrPass ©
>> По умолчанию присваивание значений типизированным константам запрещено (включается {$J+} )

Точно


 
Defunct ©   (2004-03-27 04:33) [8]

А лучше вообще массив вынести в текстовый файл. Проще редактирвать и нет надобности постоянно перекомпилировать программу.


 
Anatoly Podgoretsky ©   (2004-03-27 13:46) [9]

DrPass ©   (27.03.04 00:32) [6]
Не факт. Зависит от версии, не исключено также изменение настроек и включение файла параметров, при том против своей воли.


 
heady   (2004-03-28 12:24) [10]

Подскажите по аналогии - как задавать двухмерный массив?


 
Тимохов ©   (2004-03-28 12:27) [11]

точно также

const a: array [0..3,0..2] of integer = ((1,2,3), (3,3,3), (3,4,5), (4,5,6));


 
YurikGl ©   (2004-03-30 21:36) [12]

А как задавать массив record-в?

 TMyPoint = record
   I,R:extended;
            end;

const
array R60array[1..18] of TMyPoint = ?


 
VMcL ©   (2004-03-30 21:47) [13]

>>YurikGl ©  (30.03.04 21:36) [12]

R60array: array [1..18] of TMyPoint = (
 (I: 1.2; R: 2.3),
 ...
);



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

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

Наверх




Память: 0.49 MB
Время: 0.024 c
3-1079591866
ceval
2004-03-18 09:37
2004.04.18
при нажатии кнопки появлялась форма для поиска


9-1061530372
KeepeR
2003-08-22 09:32
2004.04.18
Онлайновая игра на Delphi


14-1080060734
peypivo
2004-03-23 19:52
2004.04.18
Русификация


7-1077352541
L.evil
2004-02-21 11:35
2004.04.18
Скрытый файл.


8-1072626254
tchn
2003-12-28 18:44
2004.04.18
странное дело с рисованием...