Hilfe - Probleme mit Booleansch´n Variablen und Schleifen

[DeddyH]

Zitat:

Delphi-Quellcode:

if form2.image14.Visible=true then zimmer1:=true else zimmer1:=false;
if form2.image17.Visible=true then zimmer2:=true else zimmer2:=false;
if form2.image20.visible=true then zimmer3:=true else zimmer3:=false;
if form2.image23.visible=true then zimmer4:=true else zimmer4:=false;
if form2.image26.visible=true then zimmer5:=true else zimmer5:=false;
if form2.image31.visible=true then zimmer6:=true else zimmer6:=false;

Dascha man gruuselich
Das kann man auch kürzen (dadurch wird es IMHO leserlicher):

Delphi-Quellcode:

zimmer1 := form2.image14.Visible;
zimmer2 := form2.image17.Visible;
...

Und Eure Logik hab ich auch nach der ausschweifenden Beschreibung noch nicht verstanden.