Тормоза с таблицей [D6, D7, Access]
Vertex © (2003-04-23 10:03:00)
Есть такая процедурка:
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:00) [1]
> while not dm.Table.Eof do begin
>
>
А где
NEXT???
Наверх 
ЧАТ |
Орешник |
|
