Zugriff auf Strings / Listen langsam?

[OlliWW]

Hallo,

Ja wie oben bereits geschrieben machen wir ein Begin / EndeUpdate. Wie gesagt es ist ingesamt träge, allerdings besonders signifikant ist diese Stelle:

Delphi-Quellcode:

  with FontBox do
  begin
    Items.BeginUpdate;
    if meineForm <> nil then
    begin
      Items.AddStrings(meineForm.lstTTFonts);
    end;
    Items.EndUpdate;
  end; //with

Aufgrund der RDP Sache hatte ich auch zunächst auf das Zeichnen der Komponenten getippt, allerdings wird hier an dieser Stelle ja nicht wirklich gezeichnet und laut Profiler dauert das mit 50 Einträgen 6 Sekunden. Ich habe irgendwie im Bauchgefühl dass es irgendwas mit Strings (Unicode, Ansi...) zu tun haben könnte, bin mir aber nicht sicher.