Ошибка List index out of bounds или OutOfMemory

[d_adilet]

Добрый день уважаемый гуру,
Второй день бьюсь с ошибками по следующему коду:

 while not DMFm.OraQuery2.Eof do

            begin

              DMFm.IBTable1.Append;
              for i:=0 to 100 do DMFm.IBTable1.fields[i].Value:=DMFm.OraQuery2.fields[i].Value;
              DMFm.OraQuery2.Next;

              end;
              DMFm.IBTable1.Post;

Если делаю "for i:=0 to 100" то, тогда выходит ошибка "List index out of bounds"
а если "for i:=0 to DMFm.OraQuery2.FieldCount -1" то, тогда выходит ошибка "Out of memory"

Записей оч много..

В какую сторону копать?

P/S/ прошу сильно не пинать...я не программист просто любитель

[astecenko]

Соблюдается ли при "for i:=0 to DMFm.OraQuery2.FieldCount -1" условие
DMFm.IBTable1.FieldCount >= DMFm.OraQuery2.FieldCount
?

[d_adilet]

ну у меня в начале стоит (забыл указать)

if DMFm.OraQuery2.RecordCount > 0 then

а так на Ваше условие не проверяю....а надо?

[Yurk@]

а если так:

if DMFm.OraQuery2.FieldsCount<> DMFm.IBTable1.FieldsCount
  then ShowMessage('Кол-во полей в источнике отличается от получателя')
  else 
  begin
  while not DMFm.OraQuery2.Eof do
  ...
  end;

[d_adilet]

Сообщение от Yurk@

а если так:

if DMFm.OraQuery2.FieldsCount<> DMFm.IBTable1.FieldsCount
  then ShowMessage('Кол-во полей в источнике отличается от получателя')
  else 
  begin
  while not DMFm.OraQuery2.Eof do
  ...
  end;

я прошу прощения, я видать не правильно выразился...
я пытаюсь с помощью этого кода скопировать данные с серверной таблицы в локальную...структура таблиц идентична...
насколько я понял, получается что предложенный вами код

if DMFm.OraQuery2.FieldsCount<> DMFm.IBTable1.FieldsCount

будет всегда давать мне ShowMessage,
так как одна таблица пустая другая с данными...

или я чего то недопонимаю?

Заранее спасибо за помощь

[Аватар]

DMFm.OraQuery2.First;
while not DMFm.OraQuery2.Eof do begin
  DMFm.IBTable1.Append;
  for i:=0 to DMFm.OraQuery2.FieldCount-1 do
    DMFm.IBTable1.fields[i].Value:=DMFm.OraQuery2.fields[i].Value;
  DMFm.IBTable1.Post;
  DMFm.OraQuery2.Next;
end;

[d_adilet]

Сообщение от Аватар

DMFm.OraQuery2.First;
while not DMFm.OraQuery2.Eof do begin
  DMFm.IBTable1.Append;
  for i:=0 to DMFm.OraQuery2.FieldCount-1 do
    DMFm.IBTable1.fields[i].Value:=DMFm.OraQuery2.fields[i].Value;
  DMFm.IBTable1.Post;
  DMFm.OraQuery2.Next;
end;

Out of memory
Даже если вначале поставил
{$M 16777000}

[Аватар]

Насколько много записей? Вполне возможно, что очень много для вашего компьютера

[d_adilet]

Сообщение от Аватар

Насколько много записей? Вполне возможно, что очень много для вашего компьютера

порядка 500 000 строк
возможно да, слишком много...

можно как нибудь кусками копировать...?

[evg_m]

а если "for i:=0 to DMFm.OraQuery2.FieldCount -1" то, тогда выходит ошибка "Out of memory"

Записей оч много..

В какую сторону копать?

в сторону перехода отказа от IBTable и перехода на SQL. IBQuery.

примерная схема

IBqueryDest.SQL:='insert (....) values (...)'; // пишем параметризированный запрос на добавление (можно сделать еще на этапе конструктора( дизайнера) форм  )

while not IBQuerySource.EOF do begin  // здесь был IBQuery1 !!
// заполняем параметры (копируем поля из исходного запроса)
  IBQueryDest.parameters.... :=IBQuerysource.fileds.....; 
  ...........................................................
  IBQueryDest.ExecSQL; // выполняем  

  IBQuerySource.Next; 
end;