| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

быстро пробежать по записям

Страницы:   < 1 2 >

321 ©   (2009-02-20 12:26:00) 

Есть ли способ быстро пробежать по записям в таблице:
В таблице 50 000 записей.
делаю так, но на все затрачивается около минуты:


FieldID := Query.FieldByName('ID');
while not Query.Eof do
begin
  Items.add(FieldID.AsString);
  cmp_QueryByField_.Next;
end;


---

Dennis I. Komarov   (2009-02-20 13:27:00) [21]

Я всмысле, мало ли чего там за Items...

---

Ega23   (2009-02-20 13:22:00) [22]

> А это откуда взял?


Написал. Пальцами.

---

Dennis I. Komarov   (2009-02-20 13:19:00) [23]

> var
>  lst : TStringList;

А это откуда взял?

---

Ega23   (2009-02-20 13:00:00) [24]

var
 lst : TStringList;
begin
 lst := TStringList.Create;
 try
   Query.DisableControls;
   try
     Query.First;
     while not  Query.Eof do
     begin
        lst.Add(Query.FieldByName(...).AsString);
        Query.Next;
     end;
   finally
     Query.EnableControls;
   end;

   Memo1.Lines.Assign(lst);
 finally
   lst.free;
 end;  

---

Dennis I. Komarov   (2009-02-20 12:53:00) [25]

А зачем добавлять куда-то все 50000 записей? Пользователю оно надо? ИМХО надо подумать над логикой...

---

Страницы:   < 1 2 >

Наверх