Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
ВнизРабота с двумерным вариантным массивом Найти похожие ветки
← →
}|{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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.054 c