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

Вниз

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

 
Влад   (2007-01-05 18:04) [0]

Можно ли каким-нибудь образом присвоить всему массиву набор значений?
Например, в начале программы можно объявить
var K:array[1..4] of longword=($243F6A88,$85A308D3,$9216D5D9,$8979FB1B);
Можно ли сделать что-либо подобное в теле программы, не присваивая каждому элементу значения по отдельности?


 
Palladin ©   (2007-01-05 18:07) [1]

ага

var
ss:TStringList;
a:Array of Integer;
i:Integer;

ss:=TStringList.Create;
ss.CommaText:="$243F6A88,$85A308D3,$9216D5D9,$8979FB1B";
setlength(a,ss.count);
for i:=0 to ss.count-1 do a[i]:=strtoint(ss[i]);
ss.free;


 
Palladin ©   (2007-01-05 18:08) [2]

хотя конечно
var K:array[1..4] of longword=($243F6A88,$85A308D3,$9216D5D9,$8979FB1B);
тоже является телом программы


 
Влад   (2007-01-05 18:16) [3]

Спасибо.
(П.с. для ламеров(меня) - тело программы это все между begin и end.:)


 
try   (2007-01-05 20:01) [4]


> Palladin ©   (05.01.07 18:07) [1]


#10 забыл в комматексте.


 
Palladin ©   (2007-01-05 20:11) [5]

с какой стати?


 
try   (2007-01-05 21:28) [6]

я неправ. не о том думал.



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

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

Наверх




Память: 0.47 MB
Время: 0.092 c
15-1166814079
Cerberus
2006-12-22 22:01
2007.01.21
Заканчивается год.


2-1167998104
dddd
2007-01-05 14:55
2007.01.21
конвертация типа integer в Date


5-1147098886
Dstr
2006-05-08 18:34
2007.01.21
RichWiev


2-1167688184
-John-Doe-
2007-01-02 00:49
2007.01.21
Узнать что за ошибка по ее номеру (сетевые ошибки)


9-1140608209
grisme
2006-02-22 14:36
2007.01.21
OpenGL Extensions