Befehle aus Listbox ausgliedern?

**Hallo_Thomas**

Habe dieser Art Befehl eindeutig zuviele in der Listbox stehen;
kann ich den Befehl irgendwohin ausgliedern, damit die Listbox wieder schneller wird?

zusammenfalten · markieren

Delphi-Quellcode:

			begin

      Counter := 0;

      for g := MeineListe.count-1 DownTo 0 do

        begin

        if StrToInt(MeineListe.Strings[g]) in [1,3,10] then

          Inc(Counter)

            else if StrToInt(MeineListe.Strings[g]) in [6] then

              Counter := 0 ;

              Label1.Caption:= IntToStr(Counter) ;

        end;

      end;

Danke

Befehle aus Listbox ausgliedern?

Befehle aus Listbox ausgliedern?

Forumregeln