Tunneleffekt in Delphi

[Cöster]

Zitat von WordsBG:

noch optimieren kann

Ja, kann man.

• Statt global könntest du die Variablen als Eigenschaften im Private-Abschnitt deklarieren.
• statt

  Zitat von WordsBG:

  if (Y-100) > 0

  könnte man auch if Y > 100 schreiben.

• Zitat von WordsBG:

  Rectangle(300-X,200-(Y-100),300+X,200+(Y-100));

  auch hier wird unnötig gerechntet. Besser wäre Rectangle(300-X, 300-Y, 300+X, 100+Y);

Das wären ein paar Optimierungen. Der Geschwindigkeitsvorteil ist nicht so deutlich spürbar, aber er ist vorhanden, wenn auch klein.


Du hast nicht beachtet, dass gleiche Entfernungen in der Ferne kleiner sind als, wenn man direkt davor steht: So dürften sich die kleinen Rechtecke nicht so schnell vergrößern wie die großen. Außerdem sollten die Abstände zwischen den Rechtecken größer sein, wenn sie sich direkt vorm eigenen Auge befinden.