Programmberechnung über Listbox läuft zu langsam

[Hallo_Thomas]

@Sharky Danke für das Programm Thomas2.zip, das hat mich um Lichtjahre nach vorn Katapultiert!!!!!!!!!!!!!

@ Matze Ich habe mein Programm auch mal auf eine Stringlist umgestellt, das Ergebis war das Gleiche(siehe dem jetzigen Anhang) die Berechnung dauert ca.34s



Ich habe jetzt einen grossen Teil von Sharky's tollen Beispielprogramm übernommen.
Nun ist das Programm schon wesentlich schneller als das oberer, aber ich bin überzeugt das es noch eine Wesentliche Optimierung möglich ist.


for pl0 := Form1.Anzeige.count - 1 downto 0 do
mein jetziger Grundgedanke geht dort hin, das ich die obere Routine mehrmals ausführe, aber das er nur die obersten 50 zahelen durchrechnet.


for pl0 := Form1.Anzeige.count - 1 downto 5 do Da hatte ich es mal so probiert, leider fängt er da erst an ,ab dem 5 Count zu Zählen, und mein wille war ja bis zum 5. Bringt mir das überhaupt eine Leistungssteigerung wenn es klappen sollte. Welche Methoden gibt es noch?