Spiel für Informatik Unterricht!!

[emteg]

Also das erste was du machen solltest, ist dir arrays zu bauen, so blickt man ja garicht mehr durch:

Delphi-Quellcode:

var Room: array [1..16] of TRaum;

{...}

procedure TForm1.FormCreate(Sender:TObject);
var i: integer;
begin

  //---Räume erzeugen---
  for i:=1 to 16 do
  begin
    Room[i]:=TRaum.Create;
    Room[i].Beschreibung:='Raum'+IntToStr(i);           //Das ergibt immer "Raum"+Zahl, also z.B. Raum1, Raum2, ...
    Room[i].Bild:='Bilder\raum'+IntToStr(i)+'.jpg';     //Da werden wie obend die Namen der Bilder erzeugt.
  end;
 
  //---Ausgänge setzen---
  room[1].setAusgaenge(nil,room2,room5,nil);
  room[2].setAusgaenge(nil,room3,room6,room1);
  room[3].setAusgaenge(nil,room4,room7,room2);
  room[4].setAusgaenge(nil,nil,room8,room3);
  room[5].setAusgaenge(room1,room6,room9,nil);
  room[6].setAusgaenge(room2,room7,room10,room5);
  room[7].setAusgaenge(room3,room8,room11,room6);
  room[8].setAusgaenge(room4,nil,room12,room7);
  room[9].setAusgaenge(room5,room10,room13,nil);
  room[10].setAusgaenge(room6,room11,room14,room9);
  room[11].setAusgaenge(room7,room12,room15,room10);
  room[12].setAusgaenge(room8,nil,room16,room11);
  room[13].setAusgaenge(room9,room14,nil,nil);
  room[14].setAusgaenge(room10,room15,nil,room13);
  room[15].setAusgaenge(room11,room16,nil,room14);
  room[16].setAusgaenge(room12,nil,nil,room15);

  aktuellerRaum:=room[1];

end;