<body>
<p>Hallo!<br>
Wie kann ich die Einlesegeschwindigkeit in einem Listveiw erhöhen? Mit
folgendem Code fülle ich mein Listview aus einer geöffneten Query.</p>
<p>Bei einer Datensatzanzahl von ca. 5000 dauert das Einlesen aber bis zu 90
Sekunden. Wie kann ich das ganze beschleunigen?</p>
<p>while not Eof do<br>
begin<br>
with lvwProtokoll.Items do<br>
&n bsp; begin<br>
&n bsp;
ListItem:= Add;<br>
&n bsp; &nbs p;
with ListItem do<br>
&n bsp; &nbs p;
begin<br>
&n bsp; &nbs p;
Caption:=(FieldByName<br>
&n bsp; &nbs p;
('DATUM').Value);<br>
&n bsp; &nbs p;
Data:= Pointer (FieldByName('ID').AsInteger);<br>
&n bsp; &nbs p;
SubItems.Add(FieldByName<br>
&n bsp; &nbs p;
('TEXT1').Value);<br>
&n bsp; &nbs p;
SubItems.Add(FieldByName<br>
&n bsp; &nbs p;
('TEXT2').Value);<br>
&n bsp; &nbs p;
end;<br>
end;<br>
Next;<br>
end;</p>
<p> </p>
<p>m.f.G. Andreas Käding</p>
</body>
<p>Hallo!<br>
Wie kann ich die Einlesegeschwindigkeit in einem Listveiw erhöhen? Mit
folgendem Code fülle ich mein Listview aus einer geöffneten Query.</p>
<p>Bei einer Datensatzanzahl von ca. 5000 dauert das Einlesen aber bis zu 90
Sekunden. Wie kann ich das ganze beschleunigen?</p>
<p>while not Eof do<br>
begin<br>
with lvwProtokoll.Items do<br>
&n bsp; begin<br>
&n bsp;
ListItem:= Add;<br>
&n bsp; &nbs p;
with ListItem do<br>
&n bsp; &nbs p;
begin<br>
&n bsp; &nbs p;
Caption:=(FieldByName<br>
&n bsp; &nbs p;
('DATUM').Value);<br>
&n bsp; &nbs p;
Data:= Pointer (FieldByName('ID').AsInteger);<br>
&n bsp; &nbs p;
SubItems.Add(FieldByName<br>
&n bsp; &nbs p;
('TEXT1').Value);<br>
&n bsp; &nbs p;
SubItems.Add(FieldByName<br>
&n bsp; &nbs p;
('TEXT2').Value);<br>
&n bsp; &nbs p;
end;<br>
end;<br>
Next;<br>
end;</p>
<p> </p>
<p>m.f.G. Andreas Käding</p>
</body>
Comment