Miscellany

Constructor TFelt.Create(SetX, SetY: Integer);
var
SkalAabnes, BliverAabnet, KanAabnes, i: Integer;
PVej: Array[0..3] of ^Boolean;
begin
  X := SetX;
  Y := SetY;

  Vej[0] := false; PVej[0] := @Vej[0];
  Vej[1] := false; PVej[1] := @Vej[1];
  Vej[2] := false; PVej[2] := @Vej[2];
  Vej[3] := false; PVej[3] := @Vej[3];

  KanAabnes := 4;

  ShowMessage(IntToStr(RandSeed));

  Randomize;
  for SkalAabnes := Random(5) downto 1 do
  begin
    Randomize;
    BliverAabnet := Random(KanAabnes);

    PVej[BliverAabnet]^ := true;

    for i := BliverAabnet to KanAabnes-2 do { KanAabes trækkes der to fra.
                                              F.eks. trækkes én fra 3 fordi
                                              random(3) blot er [0;2] og én
                                              fordi 2 ikke bliver aktuel igen. }
    begin
      PVej[i] := PVej[i + 1];
    end;

    dec(KanAabnes);
  end;
end;