Performanceprobleme beim Befüllen von TComboBoxen

[himitsu]

Zitat von m.pritscher:

Auch Events sind keine gesetzt, die evtl. diese Ladezeiten erklären würden.

Skins, VCL-Hooks uvm.

[jaenicke]

Zitat von m.pritscher:

Zusätzlich fällt auf, dass auch einfache Operationen wie "ItemIndex := -1" auf diese TComboBoxen
ebenfalls mehrere hundert Millisekunden (ca. 400–500 ms) benötigen.

Das sollte sich doch relativ einfach finden lassen:
Diese Aktion in eine Schleife packen und mehrfach ausführen (also mit unterschiedlichen Indizes). Dann laufen lassen und immer wieder im Debugger anhalten und schauen, was das Programm gerade macht...

Ansonsten gibt es Profiler, mit denen du genau siehst, was da passiert.

[m.pritscher]

Zitat von himitsu:

Zitat von m.pritscher:

Auch Events sind keine gesetzt, die evtl. diese Ladezeiten erklären würden.

Skins, VCL-Hooks uvm.

Eine gute Idee, die im Team auf großen Anklang gestoßen ist.
Nach Überprüfung, mussten wir leider feststellen, das mit den Default-Windows Einstellungen gearbeitet wird.

[m.pritscher]

Zitat von jaenicke:

Zitat von m.pritscher:

Zusätzlich fällt auf, dass auch einfache Operationen wie "ItemIndex := -1" auf diese TComboBoxen
ebenfalls mehrere hundert Millisekunden (ca. 400–500 ms) benötigen.

Das sollte sich doch relativ einfach finden lassen:
Diese Aktion in eine Schleife packen und mehrfach ausführen (also mit unterschiedlichen Indizes). Dann laufen lassen und immer wieder im Debugger anhalten und schauen, was das Programm gerade macht...

Ansonsten gibt es Profiler, mit denen du genau siehst, was da passiert.

Beim detaillierten Überprüfen dieses Ansatzes sind wir auf den womöglich "wahren Übeltäter" gestoßen.
Der eigentliche Zeitfresser scheint das "WM_SETREDRAW" zu sein.

Delphi-Quellcode:

// ------------------------- Hauptsoftware ------------------------- //
procedure TFenster_EinstInterfaces2.ClearParVarPanel;
begin
  StartParVarTime := Now;
  LogProcedureStart('--- ClearParVarPanel ---');

  StartStepTime := Now;
  for i := 1 to 15 do
  begin
    hedit := TLabeledEdit(FindComponent('ledt' + IntToStr(i)));
    if hedit <> nil then
    begin
      hedit.Text := '';
      hedit.Hint := sDblClickForVar;
    end;
  end;
  LogTime('ledt-Schleife abgeschlossen', StartStepTime);

  StartStepTime := Now;
  // Redraw deaktivieren (WM_SETREDRAW False)
  for i := 1 to 15 do
  begin
    StartLoopTime := Now;
    hcombo := TComboBox(FindComponent('cmb' + IntToStr(i)));
    LogTime('FindComponent', StartLoopTime);
    if Assigned(hcombo) then
      SendMessage(hcombo.Handle, WM_SETREDRAW, WPARAM(False), 0);
    LogTime('SendMessage redraw', StartLoopTime);
  end;
  LogTime('WM_SETREDRAW false', StartStepTime);

  // Alle Index-Werte in Schleife setzen
  StartStepTime := Now;
  for i := 1 to 15 do
  begin
    hcombo := TComboBox(FindComponent('cmb' + IntToStr(i)));

    if hcombo <> nil then
    begin
      StartLoopTime := Now;
      hcombo.Items.BeginUpdate;
      try
        hcombo.ItemIndex := -1;
      finally
        hcombo.Items.EndUpdate;
      end;
      LogTime('ItemIndex für cmb' + IntToStr(i), StartLoopTime);
    end
    else
    begin
      LogTime('cmb' + IntToStr(i) + ' = nil', StartLoopTime);
    end;
  end;
  LogTime('cmb-Schleife abgeschlossen', StartStepTime);

  StartStepTime := Now;
  // Redraw reaktivieren und Controls invalidieren
  for i := 1 to 15 do
  begin
    hcombo := TComboBox(FindComponent('cmb' + IntToStr(i)));
    if Assigned(hcombo) then
    begin
      SendMessage(hcombo.Handle, WM_SETREDRAW, WPARAM(True), 0);
      RedrawWindow(hcombo.Handle, nil, 0, RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN);
    end;
  end;
  LogTime('WM_SETREDRAW true', StartStepTime);

  LogTime('ClearParVarPanel gesamt:', StartParVarTime);
  LogProcedureEnd('--- ClearParVarPanel ---');
end;

[Zoot]

Da fehlen einem die Worte.

[m.pritscher]

Zitat von Zoot:

Da fehlen einem die Worte.

Wie darf man das verstehen Zoot?

[Uwe Raabe]

Wie verhält sich der Code denn ohne das ganze WM_SETREDRAW, BeginUpdate/Endupdate und LogTime, wenn lediglich die Zeit für die gesamte Routine gemessen wird?

Nebenbei: Das WM_SETREDRAW kann nur dann Wirkung zeigen, wenn viele Änderungen an einem Control durchgeführt werden. Hier ist es bei jeder Combobox nur das Setzen des ItemIndex und dafür bringt das WM_SETREDRAW nur noch mehr Overhead mit. Man könnte es stattdessen auf das gesamte Form anwenden anstatt auf die einzelnen Controls.

[Redeemer]

Der Overhead von TStrings ist mir auch schon bei TListItem.SubItems aufgefallen. Ich habe dann TListItem abgeleitet und mit einem selbstgeschriebenen TStrings-Erben versehen. Das ganze läuft um mehrere Größenordnungen(!) schneller, aber SubItems[i] kann nur noch geschrieben und nicht mehr gelesen werden, da ich keinen Bedarf hatte, den Getter zu implementieren, der die Strings von Windows zurückholt. TComboBox hat bisher bei mir keine Probleme gemacht, aber ein gewisses anderes Control, das ich auch hier verdächtige. Ich wette daher hiermit 100 Delphi-Drachmen, dass es sich bei cmb1 bis cmb10 weder um TComboBox noch einen Erben davon handelt. Top, die Wette gilt.

[Kas Ob.]

Hi,

Zitat von m.pritscher:

Beim detaillierten Überprüfen dieses Ansatzes sind wir auf den womöglich "wahren Übeltäter" gestoßen.
Der eigentliche Zeitfresser scheint das "WM_SETREDRAW" zu sein.

That log makes no sense, it looks like it is missing the reason of its use.

See, you missing core things to isolate, clearly the culprit is your approach with
1) FindComponent ! that thing is slow as turtle, you are repeating it and measuring it again and again....
2) What are these numbers in the scope "[xxx ms]" these makes no sense and not accumulate to the time on the left !?
3) I am afraid that "LogTime" and "LogProcedureEnd" have also something to do with efficient logging.

suggestion :
1) One FindComponent in that code and put them in a list if you want, and also measure it to put it this to rest.
2) Slice that procedure "ClearParVarPanel" into pieces, just simplify it as much as you can, one loop is more than enough, so either make it multiple procedures/functions or reduce it to %30 of its current lines.
3) Use one : either "WM_SETREDRAW" or "BeginUpdate..EndUpdate" but not both, these are messages and they are the same.