VirtualTreeView mit Handbremse?

[Daniel]

Moin,

ich nutze in Delphi XE8 den VirtualTreeView, wie er über GetIt ausgeliefert wird. Die Version identifiziert sich selbst als 6.1.0.
Kann es sein, dass die langsamer ist als früher? Ich erinnere mich an Zeiten, in denen man Tausende an Einträgen einfügen konnte, ohne nennenswert zu warten.

Aktuell habe ich rund 10.000 Einträge und warte reproduzierbar rund 1.5 Sekunden. Leere VCL-Anwendung, VirtualTree raufgebatscht und folgenden Code ausgeführt:

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var
  LNode : PVirtualNode;
  i : integer;
  s, e : cardinal;
begin
  s := GetTickCount;

  VirtualStringTree1.BeginUpdate;
  TRY
    for i := 0 to 9999 do
    begin
      LNode := VirtualStringTree1.AddChild( NIL );
    end;
  FINALLY
    VirtualStringTree1.EndUpdate;
  END;

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

Hat einer einen VST aus einer anderen Quelle und könnte mal testen, ob es da auch ähnliche Verzögerungen gibt?
Ich hätte jetzt Zeiten < 100ms erwartet.

[Der schöne Günther]

Meine Version, wo auch immer ich die herhabe, sagt
VirtualTrees.VTVersion = '6.2.1' und braucht für deinen Code (32 Bit) in Debug ca. 530ms, in Release 310ms.

(XE7, Update 1)

[TiGü]

Mein Delphi Seattle mit VTVersion = '6.1.0'; sagt was zwischen 910 - 940 ms (mit Debug Win32 auf i7-4790 @ 3.60 GHz, 16 GB RAM, SSD).

[mkinzler]

Das ist die aktuelle Version, die man z.B. über Delphinus beziehen kann.

[TiGü]

Zitat von Der schöne Günther:

Meine Version, wo auch immer ich die herhabe, sagt
VirtualTrees.VTVersion = '6.2.1'

Wie das?
Bei GitHub finde ich nur 6.1.0:
https://raw.githubusercontent.com/Tu...rtualTrees.pas

[Daniel]

Danke für den Test.
Seltsam - ich hätte schwören können, dass die Komponente mal schneller war. Aber man wird nicht jünger und in der Erinnerung war ja früher alles besser.

[TiGü]

Früher war das Internet viel schneller...

[mkinzler]

Zitat von TiGü:

Zitat von Der schöne Günther:

Meine Version, wo auch immer ich die herhabe, sagt
VirtualTrees.VTVersion = '6.2.1'

Wie das?
Bei GitHub finde ich nur 6.1.0:
https://raw.githubusercontent.com/Tu...rtualTrees.pas

In der TuboPack version.

Diese ist aber neuer:

https://github.com/Virtual-TreeView/Virtual-TreeView

[SProske]

XE3, VST Version 5.1.1

Zeit im nicht messbaren Bereich (0 oder 16)

[DeddyH]

Zitat von Daniel:

Aber man wird nicht jünger und in der Erinnerung war ja früher alles besser.

Früher war ja auch mehr Lametta