Delphi XE3?

[Daniel]

Zitat von greenmile:

Am wichtigsten ist jedoch für mich: Läuft FM2 schneller und stabil? [...] Funktioniert das füllen einer Listbox mit 1000 Einträgen nun schneller als 30 Sekunden?

Nun, ich bin natürlich nicht von Embarcadero ... aber ... wenn ich mal *hust* ... mutmaßen dürfte, dann würde folgender Code in einer Test-VM mit Windows 8 (VMWare Fusion 5) mit FireMonkey2 und VCL ähnlich schnell (beide Varianten reproduzierbar unter 50ms) laufen. Wichtig wäre möglicherweise (was weiß ich schon) die Verwendung von .BeginUpdate und .EndUpdate .

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
 s, e : cardinal;
begin
  ListBox1.Clear;

  s:= GetTickCount;

  ListBox1.BeginUpdate;
  for i:= 0 to 999 do
  begin
    ListBox1.Items.Add( 'Eintrag #' + IntToStr(i) );
  end;
  ListBox1.EndUpdate;

  e:= GetTickCount;
  ShowMessage( IntToStr(e-s) + 'ms' );
end;

Würde das Deine Frage beantworten?