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

Вниз

Как создать в цикле Array Of Const?   Найти похожие ветки 

 
IGray   (2008-01-21 04:27) [0]

Hi! Есть процедура с параметром типа Array Of Const и мне нужно в цикле создать массив вариантов подходящий для передачи в эту процедуру.

Что-то типа:
создать массив нулевого размера (вероятно типа array of TVarRec?)
for бла-бла-бла begin
 увеличить размер массива на элемент
 заполнить последний элемент значением типа Variant
end;

Поделитесь примерчиком плииз!
Сорри если торможу мрачно..
Заранее спасибо!


 
KilkennyCat ©   (2008-01-21 05:50) [1]


> увеличить размер массива на элемент

SetLength(array, length(array) + 1);

> заполнить последний элемент значением типа Variant

array[high(array)] := ....


 
Рамиль ©   (2008-01-21 10:31) [2]


> IGray   (21.01.08 04:27)  

Вы думаете перевыделение памяти такая быстрая операция?
Оцените массив, выделите чуть больше памяти, потом обрежте.


 
KilkennyCat ©   (2008-01-21 10:35) [3]


> Рамиль ©   (21.01.08 10:31) [2]

> Оцените массив,


да он уже на самом деле оценен. его ж передавать будут таким, чтоб подошел.


 
Рамиль ©   (2008-01-21 11:47) [4]


> да он уже на самом деле оценен. его ж передавать будут таким,
>  чтоб подошел.

А зачем тогда в цикле увеличивать?


 
KilkennyCat ©   (2008-01-21 12:02) [5]

хз - тз...


 
Плохиш ©   (2008-01-21 12:21) [6]


> Как создать в цикле Array Of Const?
>
> IGray   (21.01.08 04:27)


var
   varSearch:  Variant;
...
     varSearch := VarArrayCreate( [0, myCount], varVariant );
     for lCount := 0 to myCount do
       varSearch[lCount] := Random(myCount);
     MyProc(Variant(varSearch));
...


 
Leonid Troyanovsky ©   (2008-01-21 13:15) [7]


> Плохиш ©   (21.01.08 12:21) [6]

> > Как создать в цикле Array Of Const?

> var
>    varSearch:  Variant;

Это ж не array of TVarRec.
Ему, видимо, нужен a[i].VType := vtVаriant; a[i].VVariant := @v;

--
Regards, LVT.


 
oxffff ©   (2008-01-21 13:46) [8]


> Leonid Troyanovsky ©   (21.01.08 13:15) [7]


Это embedded Variant array в Array Of Const.
:)



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

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

Наверх




Память: 0.48 MB
Время: 0.011 c
15-1220108908
savyhinst
2008-08-30 19:08
2008.10.19
IniFiles nouses


2-1221084613
demon
2008-09-11 02:10
2008.10.19
Как загрусить html файл?


2-1220850278
FIL-23
2008-09-08 09:04
2008.10.19
Отправка смс


1-1200559310
Zheksik
2008-01-17 11:41
2008.10.19
Перекрашенные ячейки StringGrid_a и выделение.


2-1221284530
DFT
2008-09-13 09:42
2008.10.19
внутренние сообщения в оконном компоненте