медленная работа TDBF

[Velial]

Доброго времени суток.
Есть вот такой код

Код: Выделить всё

    while not dbIt.EOF do
    begin
      If Copy(dbIt.Fields.FieldByNumber(1).AsString,1,Length(edit1.Text)) = edit1.Text then
      begin
        dbit.Delete;
      end
      else
      begin
        dbIt.Next;
      end;
    end;


При работе с dbf файлами до 15000 записей нет никаких проблем, но если количество записей больше, то скорость обработки начинает падать. в файле с 35000 записей первые 15000 пролетают за 2-3 секунды, а остальные более 3 минут.
Это нормально? Или я что-то делаю не так? Есть какие-нибудь предложения как добиться нормальной скорости работы?
P.S.Lazarus 0.9.28.2 beta FPC 2.2.4

[Padre_Mortius]

а что этот кусок кода делает? И почему нельзя использовать Filter или Locate?

[Velial]

Нужно из dbf файла удалить определенные записи. Как реализовать по другому я не знаю. Готов принять другое решение.

[WindOfPain]

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
begin
     MemDataset1.Filtered:=false;
     MemDataset1.Filter:='LANGUAGE = "F*"';//фильтруем в датасете только те строки, где в поле LANGUAGE значение начинается с F
     MemDataset1.Filtered:=true;

     while not Memdataset1.EOF do
     begin
          Memdataset1.Delete;//удаление всех строк, которые удовлетворяют условию фильтра
     end;

     MemDataset1.Filtered:=false;
     MemDataset1.Filter:='';//отключение фильтрации
     MemDataset1.Filtered:=true;
end;                   


не знаю на счет скоростных характеристик данного метода, но при помощи фильтрации, можно решить задачу, как-то так

[Mr.Smart]

Я не уверен, что увеличится скорость. Как никак DBF реализация FPC и подозреваю, что там не заморачивались, т.к. всё таки не было данной цели!

[Velial]

Спасибо за помощь. С фильтром работает быстрее.