Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
9-1089877616
Evgeniy_K
2004-07-15 11:46
2004.11.07
BMP vs Memory


9-1087577286
Ландграф Павел
2004-06-18 20:48
2004.11.07
Избирательное освещение на подобие NOX


1-1098782170
markers
2004-10-26 13:16
2004.11.07
Подскажите плиз!


14-1098048688
GuAV
2004-10-18 01:31
2004.11.07
Exception ;-)


14-1098380673
Maverick
2004-10-21 21:44
2004.11.07
Всем доброго вечера! меня вот интересет один вопрос...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский