Einen Vorgang Automatisieren

[Khabarakh]

Wozu die Schleife?

Delphi-Quellcode:

Dec(x, 1); // für Endziffern 1..9 statt 2..0
Dec(y, 1);
if (x div 20 <> 0) and (y div 20 <> 0) then // keine 0, 20, 40... (= 1, 21, 41...)
  Canvas.Rectangle(x div 20 * 20 + 2,  y div 20 * 20 + 2, x div 20 * 20 + 20, y div 20 * 20 + 20);

Ungetestet und ohne Garantie .