FMX : TStrings.clear oder setString sehr langsam

[stalkingwolf]

7x items.clear auf 7 verschiedene TStrings dauert 4 Sekunden.
Das ist doch relativ langsam.

Ich habe 7 Comboboxen welche ich bei Laufzeit fülle.
Erst leeren, dann eine Tstringlist füllen und per addStrings die Comboboxen füllen.
Das hinzufügen geht fix, aber das clear dauert ewig.

Also umgeschrieben und am Ende mit setStrings da ganz füllen. Nun dauert setStrings ewig.

Übersehe ich etwas oder sind die Dinger mittlerweile so träge?

Edit : das ist unter Android und unter Windows so träge.

[hoika]

Hallo,
BeginUpdate/EndUpdate benutzen.
OnChange-Events prüfen und ggfs. vorher retten / auf NIL setzen / Event zurücksetzen

[stalkingwolf]

Sorry vergessen.
Beginupdate und endupdate habe ich drin.
Aber onChange hatte ich übersehen. Danke für den Hinweis 8-)

Wobei das mit dem onChange bringt nichts.

[TiGü]

Profiler drauf werfen, alles andere ist Kaffeesatzleserei.

[hoika]

Hallo,

Zitat:

Wobei das mit dem onChange bringt nichts.

Andere Events?

[stalkingwolf]

Nein andere Events gibt es nicht.
Das sind 4sek unter Windows und 14! sek unter Android.

Profiler muss mich mal schlau machen.

[TiGü]

Nur Strings oder auch Objekte in die Stringlist hinzugefügt?

[Uwe Raabe]

Ein konkretes Beispiel zum Nachstellen wäre jetzt vielleicht angebracht.

[stalkingwolf]

Zitat:

Zitat von Uwe Raabe (Beitrag 1490085)

Ein konkretes Beispiel zum Nachstellen wäre jetzt vielleicht angebracht.

Code:

combox1.items.clear;

Das soll nun nicht unfreundlich wirken, aber mehr ist es nicht. Und die Combobox ist sogar leer.

Zitat:

Nur Strings oder auch Objekte in die Stringlist hinzugefügt?

Nur Strings.

[TiGü]

Ja, verstehe nicht?
Debug-DCUs an und in die FMX debuggt?

Code:

FMX.ListBox.TCustomListBox.Clear
FMX.ListBox.TCustomListBox.TListBoxStrings.Clear

Delphi-Quellcode:

procedure TCustomListBox.Clear;
begin
  BeginUpdate;
  try
    RealignContent;
    FToInflate.Clear;
    if Content <> nil then
      Content.DeleteChildren;
    FGroups.Clear;
    SelectionController.SetCurrent(-1);
  finally
    EndUpdate;
  end;
end;

Hängt das an der RealignContent?
SelectionController.SetCurrent(-1);?
Dauert es lange im EndUpdate?

Lasst euch doch nicht immer alles aus der Nase ziehen.
Mal so ein bisschen Eigeninitiative zeigen.

Am Ende ist es wieder so ein: "Hey, ich habe die 127 anstehenden Windows-Updates durchinstalliert und nach 43 Monaten mal neugestartet, jetzt ist wieder alles gut!"

Komm, sei nett und frickle uns ein kleines Beispielprojekt zusammen.
Formular, Combobox, ein Button zum Löschen. Projekt zippen und hochladen.