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.