Zitat von
mirage228:
Zitat von
toms:
Hast du das gemacht? Beschleunigt den Code um das Vielfache.
Japp, habe ich so probiert. Am Anfang SpinEdit1.Value in eine Integer Variable und alle folgenden Zugriffe auf SpinEdit1.Value durch diese Variable ersetzt - die gemessene Zeit stammt auch von diesem Versuch.
Ich habe es ebengerade mal mit Delphi 2007 ausprobiert. Wenn ich es so mache, wie im Zitat, zeigt mir mein Rechner 15 ms an. Wenn ich jetzt aber noch diese zwei Zeilen weglasse, dann zeigt er mir 0 an :
Delphi-Quellcode:
PBar_1.Position := i * i;
Application.ProcessMessages;