Maximale Arraylänge?

[sx2008]

Ist Dir schon mal aufgefallen, dass dein Sourcecode nur so von Zahlen wimmelt?
Hier ein Beispiel:

Delphi-Quellcode:

 i:=10 {<=};
          while i<width-40{<=} do
                begin
                     G.canvas.Font.size:=5{<=};
                     if (i<x-20{<=}) or (i>x+20{<=}) then G.canvas.TextOut(i,Y-10{<=},FloatToStrf(PixelsToXY(i,i).x,fffixed,10,2));
                     i:=i+50{<=};
                end;

Das führt natürlich zu einer schlechten Codequalität.
Ersetze mal alle diese Zahlen durch Konstanten.
Manche Zahlen sollten sogar durch Variablen ersetzt werden.
Anstatt die Achsen-Beschriftung mit fester Schrittgrösse 5 zu zeichnen,
wäre es doch besser den Font (inkl. Name, Style,...) von aussen vorzugeben.