Siehe Problem=> Davon habe ich 200 ca. Stück in der Procedure stehen, jedes Steuert ein Label an und ein Bild, hat jemand eine Idee wie ich das vereinfachen kann, Programm wird mit der Zeit immer langsamer
Delphi-Quellcode:
procedure TForm2.AddMyItem(const AItem: String; const AColor: TColor);
begin
Form1.Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
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
Es wird eigentlich immer nur ein Item hinzugefügt pro Procedurdurchlauf, bloss dadurch müssen die Labels immer wieder neu berechnet werden und dass sind im Moment annähernd 200 und da sollen eigentlich noch ein paar dazu kommen.
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!