مهران رسا
یک شنبه 16 مرداد 1390, 23:18 عصر
سلام
یکسری رکورد رو از بانک MySql با جدول MyIsam میخونم و داخل یک ListView درج میکنم. مشکل اینجاست که سرعت کار خیلی پایینه. مثلاً برای 1400 تا رکورد چیزی حدود 8 ثانیه طول میکشه تا اطلاعات توی ListView درج بشن.
روشم اینه :
Qry.SQL.Text := 'SELECT * FROM `students`';
Qry.Open;
LST.Items.Clear;
C := Qry.RecordCount;
if C > 0 then
begin
for i := 0 to C - 1 do
begin
Itm := LST.Items.Add;
Itm.Caption := Qry.FieldByName('Code').AsString;
Itm.SubItems.Add(Qry.FieldByName
('Name').AsString);
.
.
.
Itm.SubItems.Add(Qry.FieldByName
('N').AsString);
Qry.Next;
end;
end
راه بهتری وجود داره؟ (ضمن اینکه حتماً باید از ListView استفاده کنم).
ممنون
یکسری رکورد رو از بانک MySql با جدول MyIsam میخونم و داخل یک ListView درج میکنم. مشکل اینجاست که سرعت کار خیلی پایینه. مثلاً برای 1400 تا رکورد چیزی حدود 8 ثانیه طول میکشه تا اطلاعات توی ListView درج بشن.
روشم اینه :
Qry.SQL.Text := 'SELECT * FROM `students`';
Qry.Open;
LST.Items.Clear;
C := Qry.RecordCount;
if C > 0 then
begin
for i := 0 to C - 1 do
begin
Itm := LST.Items.Add;
Itm.Caption := Qry.FieldByName('Code').AsString;
Itm.SubItems.Add(Qry.FieldByName
('Name').AsString);
.
.
.
Itm.SubItems.Add(Qry.FieldByName
('N').AsString);
Qry.Next;
end;
end
راه بهتری وجود داره؟ (ضمن اینکه حتماً باید از ListView استفاده کنم).
ممنون