Главная страница
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.048 c
15-1167661170
Tasia
2007-01-01 17:19
2007.01.21
Как связать проекты?


15-1166207047
IMHO
2006-12-15 21:24
2007.01.21
Спартаку - гишпанцы, Гинеру - братья по крови


6-1155728885
vodvorezlaya
2006-08-16 15:48
2007.01.21
докачка файлов из сети


4-1157543469
DroNIX
2006-09-06 15:51
2007.01.21
Проблема эмуляция VK клавиш с программой GogleEarth


2-1167993985
DelphiLexx
2007-01-05 13:46
2007.01.21
Delphi выдает ошибку. С чем это связано