Zahl grafisch anzeigen lassen

[nuclearping]

Delphi-Quellcode:

const
  SHAPE_WIDTH = 10;
  SHAPE_HEIGHT = 10;
var
  Quadrate, i, l, t: Integer;
  Shape: TShape; // uses ExtCtrls
begin
  // Quadrate werden in ein Panel namens Panel1 gezeichnet
  Panel1.DoubleBuffered := TRUE;
  Quadrate := 5;
  l := 0;
  t := 0;
  for i := 0 to Quadrate - 1 do
    begin
      Shape := TShape.Create(Panel1);
      with Shape do
        begin
          Parent := Panel1;
          Left := l;
          Top := t;
          Width := SHAPE_WIDTH;
          Height := SHAPE_HEIGHT;
          Color := clSkyBlue;
        end;
      Inc(l, SHAPE_WIDTH);
      if (l > Panel1.ClientWidth) then
        begin
          l := 0;
          Inc(t, SHAPE_HEIGHT);
        end;
    end;
end;