Labyrinth Spiel-Ist das Möglich?

[DeddyH]

Statt zig Boolean-Variablen bietet sich eine einzige Integer an.

Delphi-Quellcode:

const Pfad := 'C:\Dokumente und Einstellungen\Jäger\Desktop\Delphi7\_RealProject\';
var Level: Cardinal;
    Bildname: string;
...
Bildname := '';
case Level of
  1: Bildname := 'Level1.bmp';
  2: Bildname := 'Level2.bmp';
  3: Bildname := 'Level3.bmp';
end;
if Bildname <> '' then
  Image1.Picture.LoadFromFile(Pfad + Bildname);