| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

олучение одномерного массива вариантов из двумерного [D7, WinXP]

Антоха ©   (2011-11-23 15:31:00) 

Есть двумерный массив вариантов v
VarArrayDimCount(v) = 2
VarArrayHighBound(v,1) = 40000
VarArrayHighBound(v,2) = 2

Есть ли какая-нибудь функция получения одномерного массива вариантов из двумерного?
сейчас делаю так, но хочется шустрее
for k :=1 to RowCount do
  a[k]:=d[k,1];

---

Антоха   (2011-11-24 09:31:00) [1]

> > Или же не устраивает скорость выполнения текущего варианта?
> именно

Хотя засек я по времени ... цикл вроде шустро работает ... тормоза
d := Funct.Tables.item(i).Columns.item(j).Data;
и тут
OracleQueryInsert.SetVariable('col1',a);
так что вопрос снимаю
Всем спасибо за помощь

---

Антоха   (2011-11-24 08:35:00) [2]

> А для какой задачи?

получаю данные из программы SAP

d := Funct.Tables.item(i).Columns.item(j).Data;
d это variant который в свою очередь array of variant
он оказался двумерным
я делаю так

A := VarArrayCreate([1, RowCount], varVariant);
for k :=1 RowCount do
  impArr[k]:=d[k,1];

а дальше пишу этот массив в параметр запроса
OracleQueryInsert.SetVariable('col1',a);
OracleQueryInsert.ExecuteArray(0,RowCount);


> Или же не устраивает скорость выполнения текущего варианта?

именно

---

Германн   (2011-11-24 00:47:00) [3]

> Есть ли какая-нибудь функция получения одномерного массива
> вариантов из двумерного?

А для какой задачи?

---

Loginov Dmitry   (2011-11-23 21:50:00) [4]

> сейчас делаю так, но хочется шустрее


Что имеется ввиду пот термином "шустрее". Шустрее написать программу (2 строки вместо 3)? Или же не устраивает скорость выполнения текущего варианта?

---

han_malign   (2011-11-23 16:05:00) [5]

аааа... - это что-ли?
a:= VarArrayOf(Slice(PVariаntArray(VarArrayLock(d))^, 40000));
VarArrayUnlock(d);
правда a - с нулевой базой получится(a[0] ... a[39999])...

---

OW   (2011-11-23 15:58:00) [6]

а зачем,

если не пройдет с вариантом способ absolute
 a: array [1..5, 1..2] of Integer;
 b: array [1..10] of integer absolute a;
 i,j: Integer;
 s : string;
begin
 for i := 1 to 2 do
  for j := 1 to 5 do
    a[j,i] := i + (j-1)*2  ;

 for i := 1 to 10 do
    s := s + IntToStr(b[i]) + ' ';

 ShowMessage( s);

то следует обращаться просто по формуле
a[j,i] := b[i + j*размерность]
т.е. если хотим взять катый элемент, берем [ К mod РАЗМЕР, К div РАЗМЕР ]

---

han_malign   (2011-11-23 15:56:00) [7]

TVariantArray = array[0..2*40000-1]of variant;
PVariantArray = ^TVariantArray
...
PVariаntArray(VarArrayLock(d))

только нужно помнить, что:

The pointer returned by VarArrayLock points to an array of elements in which the leftmost dimension increases first. In other words, the dimensions of the returned array pointer are reversed from the dimensions of the variant array.

- то есть в твоем случае это будет array[1..2, 1..40000]of variant
{(1,1), (1,2), ... ,(1,40000), (2,1), (2,2), ... ,(2,40000)}

Ну и про VarArrayUnlock не забывать...
И move - нельзя, т.к. variant - умный тип...

---

Наверх