Und zwar habe ich mehrer Befehle dieser Art in meine Listbox geschrieben:
Delphi-Quellcode:
procedure TForm1.AnzeigeDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
g, Counter: Integer;
begin
Counter := 0;
for g := Anzeige.Count-1 DownTo 0 do
if StrToInt(Anzeige.Items[g]) in [1,3,7] then
Inc(Counter)
else if StrToInt(Anzeige.Items[g]) in [6] then
Counter := 0;
Label1.Caption:= IntToStr(Counter) ;
end;
end;
Das Problem ist nun meine Listbox baut sich zu langsam auf, da ich viele solcher Routinen dort drin hab.
Wie könnte ich den Befehl formulieren damit er in Label1 steht, bzw.damit die Listbox wieder schneller wird