Форум: "Базы";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Вниз

Тормоза с таблицей   Найти похожие ветки 

← →
Vertex   (2003-04-23 10:03) [0]

Есть такая процедурка:

strsertcur := dm.Table.Fields.Fields[5].AsString;
delete(strsertcur,1,2);
delete(strsertcur,5,1);
delete(strsertcur,8,2);
i := strtoint(strsertcur);
fmSert.L1.Text := dm.Table.Fields.Fields[1].AsString + " " +
dm.Table.Fields.Fields[2].AsString + " " + dm.Table.Fields.Fields[5].AsString;
dm.Table.Open;
cursor := crHourGlass;
while not dm.Table.Eof do begin

strid := dm.Table.Fields.Fields[1].AsString; fmSert.label1.Caption := strid;
if strtoint(strid) = i then fmSert.L2.Text := dm.Table.Fields.Fields[1].AsString + " " +
dm.Table.Fields.Fields[2].AsString + " " +
dm.Table.Fields.Fields[5].AsString;


end;
cursor := crDefault;
fmSert.Show;
Выполняется минут 30 (Athlon 1400Mhz 256Ram), записей около 1500 штук. Где я ступил и как правильно будет? Помогите плизз!!!
Заранее спасибо.

---

← →
Соловьев   (2003-04-23 10:05) [1]

> while not dm.Table.Eof do begin
>
>

А где NEXT???

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c