kniffel - zahlenabfrage

[Wolfgang Mix]

Ausserdem:

Delphi-Quellcode:

if w1 =  1 then                    //fragt ab und zeigt die bilder
Image1.Visible:=true;
if w1 = 2 then
Image2.Visible:=true;
if w1 = 3 then
Image3.Visible:=true;
if w1 = 4 then
Image4.Visible:=true;
if w1 = 5 then
Image5.Visible:=true;
if w1 = 6 then
Image6.Visible:=true;

wird übersichtlicher mit

Delphi-Quellcode:

case w1 of
  1: Image1.Visible:=true;
  2: Image2.Visible:=true;
  ...
end;