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

Вниз

Работа с двумерным вариантным массивом   Найти похожие ветки 

← →
}|{yk ©   (2004-10-25 16:29) [0]

with self.DataSource.DataSet do
             begin
               XLSArray := VarArrayCreate([0, RecordCount], varVariant);
               First;
               while not Eof do
               begin
                 XLSArray[RecNo - 1] := VarArrayCreate([0, ColCount - 1], varVariant);
                 for IDX := 0 to ColCount - 1 do
                   XLSArray[RecNo - 1][IDX] := FieldByNumber(IDX).Value;
                 Next;
               end;
             end;
получаю ошибку Left side cannot be assigned to
А как правильно?

---

← →
jack128 ©   (2004-10-25 16:32) [1]

XLSArray[RecNo - 1, IDX] := FieldByNumber(IDX).Value ???

---

← →
Pentium133 ©   (2004-10-25 16:36) [2]

может так прокатит? FieldByNumber(IDX).Value.AsVariant

---

← →
}|{yk ©   (2004-10-25 16:52) [3]

Получаю Variant Array index out of bound, хотя обращаюсь вроде бы к XLSArray[0,0]

---

← →
clickmaker ©   (2004-10-25 17:03) [4]

XLSArray := VarArrayCreate([0, RecordCount-1], varVariant);
...
V := VarArrayCreate([0, ColCount - 1], varVariant);
for IDX := 0 to ColCount - 1 do
 V[IDX] := Fields[IDX].Value;
XLSArray[RecNo - 1] := V;

---

← →
}|{yk ©   (2004-10-25 17:36) [5]

Мда... оказывается RecordCount показывает количество отфетченных записей :(

---

← →
clickmaker ©   (2004-10-25 17:56) [6]

> [5] }|{yk ©   (25.10.04 17:36)
> Мда... оказывается RecordCount показывает количество отфетченных
> записей :(

У некоторых потомков DataSet есть метод FetchAll. На крайняк - Last; First; или VarArrayRedim

---

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

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

Наверх

Память: 0.48 MB
Время: 0.04 c