FMX Listbox total lahm

[wurzelzwerg]

Das Füllen einer FMX-Listbox mit 8000 Einträgen dauert ganze 36 Minuten. :shock:
(VCL unter 1 sec)
Gibts da evtl Alternativen?

[Union]

1753 ms:

Delphi-Quellcode:

procedure TfrmIosMain.FormCreate(Sender: TObject);
var
  i : integer;
  dtStart : TDateTime;
begin
  dtStart := Now;
  for i := 0 to 7999 do
    ListBox1.Items.Add(Format('%8.8d', [i]));
  ShowMessage(Format('%d', [MilliSecondsBetween(Now, dtStart)]));
end;

Liegt es vielleicht nicht an der Listbox sondern daran wie Du die Daten erstellst?

[wurzelzwerg]

Kann es sein dass du ne IOS-App hattest? Ich hatte ne Firemonkey-HD-Anwendung.
Als IOS-App dauert dein code bei mir 5625 ms.
Ich hatte zum Test auch nur das hier:

Delphi-Quellcode:

s:= '1,2,3,4,5,6,7';
for i := 0 to 8000 do
  ListBox1.Items.Add(s);

[Union]

Frische FMX-HD Anwendung:

Delphi-Quellcode:

uses DateUtils;
{$R *.fmx}

procedure TForm3.FormCreate(Sender: TObject);
var
  i : integer;
  dtStart : TDateTime;
begin
  dtStart := Now;
  for i := 0 to 7999 do
    ListBox1.Items.Add(Format('%8.8d', [i]));
  ShowMessage(Format('%d', [MilliSecondsBetween(Now, dtStart)]));
end;

2425 ms.

Delphi-Quellcode:

ListBox1.BeginUpdate;
for i := 0 to 7999 do
  ListBox1.Items.Add(s);
EndUpdate;

1690 ms. Hast Du vielleicht ein OnChange oder sowas an der Listbox?

[wurzelzwerg]

Nö, nichts dran. Die Schleife ist der einzige Code.
Werd mal nen anderen PC probieren. :gruebel:

Edit: Mist, kann das XE nicht nochmal installieren(nur Trial)

[Union]

Kannst ja mal das komplette Miniprojekt anhängen. Dann kann man es mal prüfen ob irgendwas Absonderliches drin steckt. Ansonsten wäre es hilfreich was über den Rechner zu erfahren (OS, Prozessor, Speicher, VM) und vielleicht auch mal Laufzeitmessungen zu machen (Prozessor, Speicher, HD). Und da ja FMX GPU orientiert ist: GRAFIKKARTE und Treiber! Ja, das kommt dann auch auf uns zu dass wir den Kunden bei Problemen nach der Version seiner GK-Treiber fragen müssen.

[wurzelzwerg]

OK, hier mal das Miniprojekt.
Und die PC-Daten:
AMD 64X2 Dual
4200+
2,21 GHz
2 GB
Windows XP SP3
GraKa: RadeonX1800GTO
256MB

Wo kann man den Treiber auslesen? Ich seh nur ATI-Display-Driver.

Auf meinem MacBookPro hab ich dasselbe Problem, OSX und WindowsXP.
Häng bitte mal eine .exe von dir ran, vielleicht geht die ja.

[Union]

Es scheint exponentiell von der Anzahl der Elemente der Listbox abzuhängen. Versuch es mal mit Begin/Endupdate, ich habe jetzt dabei eine Geschwindigkeitssteigerung um das 250-fache gemessen :

Code:

Listbox alClient (600x400) mit 1000 Elementen = 5223 ms
ListBox alClient (600x400) mit 2000 Elementen = 28809 ms

ListBox alClient (600x400) mit 2000 Elementen Begin/Endupdate = 109 ms
ListBox alClient (600x400) mit 8000 Elementen Begin/Endupdate = 1704 ms

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i : integer;
  dtStart : TDateTime;
begin
  dtStart := Now;
  ListBox1.BeginUpdate;
  for i := 0 to 7999 do
    ListBox1.Items.Add(Format('%8.8d', [i]));
  ShowMessage(Format('%d', [MilliSecondsBetween(Now, dtStart)]));
  ListBox1.EndUpdate;
end;

Ich habe aber nur 32bit runtime. Hast Du vielleicht 64 erstellt? Das kann ich bei mir nicht testen.

[Union]

Ich habe Deine Anwendung getestet und nach 5 Minuten mit 100% CPU gekillt. Bei mir kompiliert das selbe. Dann Begin/EndUpdate eingefügt. 3160 ms.

[wurzelzwerg]

Komisch. Was ist denn zu deinem ersten Test anders?

Mit Begin/Endupdate sind es jetzt 5219ms. Schon mal wesentlich besser. VCL: 1150ms
Das Scrollen in der Box ist aber auch keine Freude.