Programmberechnung über Listbox läuft zu langsam

[Hallo_Thomas]

Ich wollte Programm erstellen was Zahlen verarbeitet.Und die Berechnung erfolgt über die Listbox. Dies wird mit der Zeit aber viel zu langsam.


Das Problem muss irgendwo hier liegen

Delphi-Quellcode:

var
  x, i, pl0, Counter: Integer;
  cg, cb            : double;
  counte            : array[0..81] of Integer;
  werte             : array[0..81] of mySet;
begin
  Anzeige.Items.BeginUpdate;
   Label999.Caption:=IntToStr(Anzeige.Items.Count);
  Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
  DoubleBuffered := True;
  cg := (Form2.SpinEdit1.Value);
  cb := (Form2.SpinEdit2.Value);
    begin
    for i := 0 to 81 do
    begin
      Counte[i] := 0;
    end;
    werte[0] := [1];
    werte[1] := [2];
    werte[2] := [3];
    werte[3] := [4];
    werte[4] := [5];
    werte[5] := [6];
    werte[6] := [7];
    werte[7] := [8];
    werte[8] := [9];
    werte[9] := [10];
    werte[10]:= [11];
    werte[11]:= [12];
    werte[12]:= [1,2];
    werte[13]:= [1,3];
    werte[14]:= [1,4];
    werte[15]:= [1,5];
    werte[16]:= [1,6];
    werte[17]:= [1,7];
    werte[18]:= [1,8];
    werte[19]:= [1,9];
    werte[20]:= [1,10];
    werte[21]:= [1,11];
    werte[22]:= [1,12];
    Werte[23]:= [1,2,3];
    werte[24]:= [1,2,4];
    werte[25]:= [1,2,5];
    werte[26]:= [1,2,6];
    werte[27]:= [1,2,7];
    werte[28]:= [1,2,8];
    werte[29]:= [1,2,9];
    werte[30]:= [1,2,10];
    werte[31]:= [1,2,11];
    werte[32]:= [1,2,12];
    werte[33]:= [1,2,3,4];
    werte[34]:= [1,2,3,5];
    werte[35]:= [1,2,3,6];
    werte[36]:= [1,2,3,7];
    werte[37]:= [1,2,3,8];
    werte[38]:= [1,2,3,9];
    werte[39]:= [1,2,3,10];
    werte[40]:= [1,2,3,11];
    werte[41]:= [1,2,3,12];
    werte[42]:= [1,2,4,5];
    werte[43]:= [1,2,4,6];
    werte[44]:= [1,2,4,7];
    werte[45]:= [1,2,4,8];
    werte[46]:= [1,2,4,9];
    werte[47]:= [1,2,4,10];
    werte[48]:= [1,2,4,11];
    werte[49]:= [1,2,4,12];
    werte[50]:= [1,2,5,6];
    werte[51]:= [1,2,5,7];
    werte[52]:= [1,2,5,8];
    werte[53]:= [1,2,5,9];
    werte[54]:= [1,2,5,10];
    werte[55]:= [1,2,5,11];
    werte[56]:= [1,2,5,12];
    werte[57]:= [1,2,6,7];
    werte[58]:= [1,2,6,8];
    werte[59]:= [1,2,6,9];
    werte[60]:= [1,2,6,10];
    werte[61]:= [1,2,6,11];
    werte[62]:= [1,2,6,12];
    werte[63]:= [1,2,7,8];
    werte[64]:= [1,2,7,9];
    werte[65]:= [1,2,7,10];
    werte[66]:= [1,2,7,11];
    werte[67]:= [1,2,7,12];
    werte[68]:= [1,2,8,9];
    werte[69]:= [1,2,8,10];
    werte[70]:= [1,2,8,11];
    werte[71]:= [1,2,8,12];
    werte[72]:= [1,2,9,10];
    werte[73]:= [1,2,9,11];
    werte[74]:= [1,2,9,12];
    werte[75]:= [1,2,10,11];
    werte[76]:= [1,2,10,12];
    werte[77]:= [1,2,11,12];
    werte[78]:= [1,2,3,4,5];
    werte[79]:= [1,2,3,4,5,6];
    werte[80]:= [1,2,3,4,5,7];
    werte[81]:= [1,2,3,4,5,8];

    for pl0 := Form1.Anzeige.count - 1 downto 0 do
    begin
      for x := 0 to 81 do
      begin
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then
          Counte[x] := 0
        else
          Inc(Counte[x]);
      end;
      for x := 0 to 81 do
      begin
        (FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption :=
          IntToStr(Counte[x]);
      end;
    end;
  end;

Anzeige.Items.endUpdate;
end;

[Sharky]

Hai Hallo_Thomas,

eine Frage: Bleibt die Liste mit den Sets nun so oder wird diese noch verändert? In deinem anderen Thread war diese ja wesentlich kleiner. Wenn Sie so bleibt würde ich einen ganz anderen Lösungsansatz wählen

[Matze]

Da eine ListBox ständig dargestellt und aktualisiert wird, sobald du Einträge hinzufügst, wird das ganze äußerst langsam. Ich würde eher eine StringList oder ähnliches bevorzugen.

[Sharky]

Wenn es denn so laufen muss würde ich diesen Code ändern:

Delphi-Quellcode:

    for pl0 := Form1.Anzeige.count - 1 downto 0 do 
    begin 
      for x := 0 to 81 do 
      begin 
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then 
          Counte[x] := 0 
        else 
          Inc(Counte[x]); 
      end; 
      for x := 0 to 81 do 
      begin 
        (FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption := 
          IntToStr(Counte[x]); 
      end; 
    end;

Die Schleife mit dem FindComponent wird ja für jeden Eintrag in der Listbox 82x durchlaufen. Das ist aber nicht notwendig.
Nehme diesen Code aus der Schleife für die Items heraus und führe ihn erst am ende aller Berechnungen aus. (Müsste auch in meinem Beispiel2 aus dem anderen Thread so sein).

[Edit]

Lade Dir doch mal bein Beispiel-2 aus diesem Thread runter und schaue es Dir an. Damit kannst Du deinen Code sicher um die Hälfte kürzen.

[alcaeus]

Hallo Thomas,

sieh dir mal diesen Thread an. Damals bestand die Frage was denn am schnellsten waere. Vielleicht kannst du dir ja den einen oder anderen Trick herauslesen.

Greetz
alcaeus

[Hallo_Thomas]

@Sharky Danke für das Programm Thomas2.zip, das hat mich um Lichtjahre nach vorn Katapultiert!!!!!!!!!!!!!

@ Matze Ich habe mein Programm auch mal auf eine Stringlist umgestellt, das Ergebis war das Gleiche(siehe dem jetzigen Anhang) die Berechnung dauert ca.34s



Ich habe jetzt einen grossen Teil von Sharky's tollen Beispielprogramm übernommen.
Nun ist das Programm schon wesentlich schneller als das oberer, aber ich bin überzeugt das es noch eine Wesentliche Optimierung möglich ist.


for pl0 := Form1.Anzeige.count - 1 downto 0 do
mein jetziger Grundgedanke geht dort hin, das ich die obere Routine mehrmals ausführe, aber das er nur die obersten 50 zahelen durchrechnet.


for pl0 := Form1.Anzeige.count - 1 downto 5 do Da hatte ich es mal so probiert, leider fängt er da erst an ,ab dem 5 Count zu Zählen, und mein wille war ja bis zum 5. Bringt mir das überhaupt eine Leistungssteigerung wenn es klappen sollte. Welche Methoden gibt es noch?