AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

Ein Thema von DangerDistel · begonnen am 6. Apr 2016 · letzter Beitrag vom 7. Apr 2016
Antwort Antwort
Seite 1 von 2  1 2   
DangerDistel

Registriert seit: 3. Aug 2012
16 Beiträge
 
Delphi 2010 Professional
 
#1

2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 22:19
Hallo

ich möchte, wie im Titel, 2 ComboBoxen separat mit dem gleichen Inhalt füllen.

Ich beziehe die Quelle aus einer Liste. Die Liste besitzt aber mehr als 14000 Einträge.
Meine Frage: Ich würde die gern per MultiThreading erledigen und welche Schritte wären dafür notwendig?
Ich habe (leider) nie mit MultiThreading wirklich zu tun gehabt.
Mein erster Ansatz daher:
Delphi-Quellcode:
procedure TfmPersonenverwaltung.FillStadtCB(Arr_ComboBoxes: Array of TComboBox);
var i_arr, ix: integer;
begin
  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
        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;
      end;
    end;
  end;
end;
Alex
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.470 Beiträge
 
Delphi 10.1 Berlin Starter
 
#2

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 22:36
Multithreading ist hier nicht nur überflüssig, sondern unsinnig, weil die Boxen beide vom VCL-Thread aus gesteuert werden.

Ergänzung: Von Multithreading ist in Deiner Prozedur auch weit und breit nichts zu sehen.
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.

Geändert von Delphi-Laie ( 6. Apr 2016 um 22:40 Uhr)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.612 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 22:41
Alternativ könnte man sich die Frage stellen ob man wirklich die Zielgruppe bedient die Zeit hat, sich zwei mal 14.000 Einträge anzusehen. Bist du sicher dass eine Combobox das ist, was du suchst?
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.470 Beiträge
 
Delphi 10.1 Berlin Starter
 
#4

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 22:47
Erstmal muß klarwerden, was Multithreading überhaupt bezweckt und welche Grenzen es hat:

http://michael-puff.de/Programmierun...mit_Delphi.pdf
http://michael-puff.de/Programmierun...lphi_Demos.zip
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.
  Mit Zitat antworten Zitat
DangerDistel

Registriert seit: 3. Aug 2012
16 Beiträge
 
Delphi 2010 Professional
 
#5

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 22:48
Es ist eine MDI - Anwendung
Das Child - Formular erzeuge ich beim Aufruf und damit werden diese Einträge wieder geladen.
Da es bei diesem Aufruf - 2 ComboBoxen sind, lade ich die ganzen Einträge neu.
Ich frage nur ob ich per MultiThreading einen Geschwindigkeitszuwachs bekomm, oder wie ich einen Geschwindigkeitszuwachs erhalte
Alex
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.470 Beiträge
 
Delphi 10.1 Berlin Starter
 
#6

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 23:01
Zwei Comboboxen mit dem gleichen Inhalt zu laden ist m.E. Redundanz.

Ich frage nur ob ich per MultiThreading einen Geschwindigkeitszuwachs bekomm
Wahrscheinlich keinen oder bestenfalls kaum einen.
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.
  Mit Zitat antworten Zitat
DangerDistel

Registriert seit: 3. Aug 2012
16 Beiträge
 
Delphi 2010 Professional
 
#7

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 23:03
ok danke - dann hat sich´s erstmal
Alex
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
656 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#8

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 23:16
Ä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
Fritz Westermann
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.470 Beiträge
 
Delphi 10.1 Berlin Starter
 
#9

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 23:18
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.
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.

Geändert von Delphi-Laie ( 6. Apr 2016 um 23:20 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
16.846 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: 2 ComboBoxen mit gleichem Inhalt füllen per Multithreading

  Alt 6. Apr 2016, 23:29
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.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 22:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf