ADOTable

[geb2010]

Здравствуйте!
Подскажите, почему программа чтения значений полей из таблицы ADOTable работает медленно (чем больше записей в таблице тем медленее) - 52 секунды, а если я убираю из цикла команду
ADOTable1.Next, то выполняется за 5 секунд?
Можно ли увеличить скорость
выполнения программы с командой
ADOTable1.Next ?
Программа

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i, n: integer;
    dn,dk: TDateTime;
    ss, s1: string;
begin
  if ADOTable1.Active = True  then
     ADOTable1.Active:=False;
  OpenDialog1.Execute;
  ADOTable1.TableName:=OpenDialog1.FileName;
  n:=0;
  try
    ADOTable1.Active:=True;
    ADOTable1.First;
    n:=ADOTable1.RecordCount;
  except
    ADOTable1.Active:=False;
  end;
  dn:=Time;
  for i:=1 to n do  begin
    ss:=ADOTable1.Fields[0].Value;
    str(i,s1);
    Label1.Caption:=s1;
    Label1.Refresh;
//    ADOTable1.Next;
  end;
  dk:=Time;
  Label1.Caption:=TimeToStr(dk-dn);
  beep;
end;

Геннадий

[Аватар]

Такие циклы лучше делать while not ADOTable1.Eof do если вообще делать.
Без Next-а не будет перехода на следующую запись.
И, да, чем больше записей в таблице тем дольше. И чем больше обращений к vcl в цикле, тем хуже. Приведенный цикл вообще-то ни чего не делает, кроме бестолкового обращения к vcl

[Stilet]

Можно ли увеличить скорость

Если ты подробнее опишешь что этим циклом нужно делать то уверен мы придумаем как его ускорить

[Slym]

нельзя except пустым делать...

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var i, n: integer;
    dn,dk: TDateTime;
    ss, s1: string;
begin
  if not OpenDialog1.Execute then exit;
  ADOTable1.Active:=False;
  ADOTable1.TableName:=OpenDialog1.FileName;
  ADOTable1.Active:=True;
  i:=1;
  dn:=Time;
  while not ADOTable1.Eof do
  begin
    ss:=ADOTable1.Fields[0].Value;
    //str(i,s1);
    //Label1.Caption:=s1;
    ADOTable1.Next;
    inc(i);
  end;
  dk:=Time;
  Label1.Caption:=TimeToStr(dk-dn);
  beep;
end;

[geb2010]

Попробую, то что Вы предлагаете.
Задача: есть таблица.dbf, надо данные прочитать в поля массива.
Я привел упрощенную рпограмму без записи в массив, но суть дела не меняет.
Как бы ускорить чтение данных из таблицы в массив.

[Stilet]

надо данные прочитать в поля массива.

Опа, нежданчик
А зачем читать в массив еще? Всмысле сам полученный набор он ведь и так в памяти массивом двумерным хранится как правило.
Так-то конечно если нужна перегонка, без цикла не обойтись, но для чего...
Я может глупые вопросы задаю, но ИМХО перечитка данных делается в особых случаях, когда это действительно необходимо. Врядли твой случай такой.

[Аватар]

Массив - это что? DBGrid не подойдет?

[geb2010]

Исходная таблица находится в файле в формате FoxPro, программа на Дельфи напрямую не работает с такой таблицей, поэтому надо переслать в массив.
Проверил с WHILE - выполняется за 50 сек. Пробовал с DBGridом работает еще медленее.

[Stilet]

Исходная таблица находится в файле в формате FoxPro, программа на Дельфи напрямую не работает с такой таблицей

Теперь я окончательно перестал понимать суть темы...
Ладно, не буду мешать флудом - Делай в цикле перегонку и не используй в нем никаких визуальных компонентов.

[Аватар]

А сколько записей в той таблице?