2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

[Delphi-Laie]

Zwei Comboboxen mit dem gleichen Inhalt zu laden ist m.E. Redundanz.

Zitat von DangerDistel:

Ich frage nur ob ich per MultiThreading einen Geschwindigkeitszuwachs bekomm

Wahrscheinlich keinen oder bestenfalls kaum einen.

[DangerDistel]

ok danke - dann hat sich´s erstmal

[Fritzew]

Ändere mal

Code:

if Length(Arr_ComboBoxes) > 0 then
  begin
    for i_arr := Low(Arr_ComboBoxes) to High(Arr_ComboBoxes) do
    begin
      if Arr_ComboBoxes[i_arr] <> nil then
      begin
       // add
        Arr_ComboBoxes[i_arr].Items.BeginUpdate;
        try
          Arr_ComboBoxes[i_arr].Clear;
          for ix := 0 to GClassStaedteList.StaedteListe.Count - 1 do
          begin
           // Application.ProcessMessages;
            Arr_ComboBoxes[i_arr].AddItem(TStadtverwaltung(GClassStaedteList.StaedteListe[ix]).StdV_Plz + ', ' +
                                          TStadtverwaltung(GClassStaedteList.StaedteListe[ix]).StdV_Ort,
                                          TObject(TStadtverwaltung(GClassStaedteList.StaedteListe[ix])));
          end;
          // Add
        finally
          Arr_ComboBoxes[i_arr].Items.EndUpdate;
        end;
      end;
    end;
  end;

Fritz

[Delphi-Laie]

Das Problem ist, daß die Comboboxen nur in einem Thread - dem VCL-Thread - laufen. Diese zu füllen, egal wieviele, läuft deshalb nur mit Singlethreadgeschwindigkeit (neudeutsch: Flaschenhals). Zugriffe anderer Threads (oder auch nur eines) erfordern zudem eine Synchronisation, d.h., daß diese sich sozusagen anstellen und auf die Bereitschaft des VCL-Threads warten müssen.

Das heißt allerdings nicht, daß Multithreading, das um den zentralen VCL-Thread herum abläuft, per se überflüssig oder unsinnig wäre.

[Bernhard Geyer]

TComboBox basiert auf eine Win-Control und dessen Handle sind nur im erzeugenden Thread gültig/nur in diesem Thread darf darauf zugegriffen werden.

Den größten Geschwindigkeitszuwachs wirst du erhalten wenn du eine Combobox-Implementierung findest die nicht auf das Win-Control basiert und eine reine Delphi-Implementierung darstellt.
Die größte Zeit beim Füllen einrt ComboBox wird man mit dem ganzen nötigen Windows-Messages benötigen die zum füllen nötig sind.

[mm1256]

Für jede ComboBox die Schleife komplett zu durchlaufen ist vermutlich der größte Flaschenhals.

Man könnte alternativ eine TStringList in einem Thread füllen und anschließend den beiden ComboBoxen => Items.Text zuweisen.