Labyrinth darstellen

[axelf98]

So gehts auch: (Etwas überarbeitet)

Delphi-Quellcode:

function Farbcode(Code: integer):TColor;
begin
 result := clwhite;
 case Code of
 1 : result := clred;
 2 : result := clblue;
 3 : result := clgreen;
 4 : result := cllime;
 end;
end;

procedure TForm1.ReDraw;
var
  x,y: longint;
  const Groesse = 20;   //Größe der kacheln
begin
      Image1.Canvas.pen.Color := clwhite;

for x :=0 to 50 do
  for y :=0 to 50 do
    begin
      Image1.Canvas.brush.Color := Farbcode(Spielfeld[x,y]);    //Farbcode
      Image1.Canvas.Rectangle(x*Groesse,y*Groesse,
                x*Groesse+Groesse,y*Groesse+Groesse);
    end;
end;