Dass Problem muss Hier Irgendwo liegen
Delphi-Quellcode:
begin
Counter := 0;
for c2227 := Form1.Anzeige.count-1 DownTo 0 do
begin
if StrToInt(Form1.Anzeige.Items[c2227]) in [0..21,28..100] then
Inc(Counter)
else if StrToInt(Form1.Anzeige.Items[c2227]) in [22..27] then
Counter := 0 ;
Form1.Label12.Caption:= IntToStr(Counter) ;
end;
end;////////Hier werden die Daten aus der Listbox gezogen um im Label den Count darzustellen
Ich habe mal einen Screenschoot der Systemleistung angehangen,im ersen Teil hab ich mal so ca. aller 2 Sekunten einen Durchlauf gemacht, dann mal hintereinander weg, und dann wieder so ca. aller 2 Sekunden, man sieht ddort sehr gut wie immer mehr rechenleistung
benötigt wird!
Kann es sein dass die Berechnung aus einer Stringliste herraus schneller wäre?