Ähnlichen Quelltext verkürzen

[SirThornberry]

klar kann man das verkürzen

Delphi-Quellcode:

procedure SetValsTo1(AIndex1, AIndex2, AIndex3, AIndex4: Integer);
begin
  feldaktive[AIndex1]:=1; 
  feldaktive[AIndex2]:=1; 
  feldaktive[AIndex3]:=1; 
  feldaktive[AIndex4]:=1; 
end;
[...]
randomize; 
  stein_nr_aktiv:= random(7) + 1; 
  case  stein_nr_aktiv of 
    1:  SetValsTo1(6,16,25,26);
    2:  SetValsTo1(5,15,25,26); 
    3:  SetValsTo1(5,6,15,16);
    4:  SetValsTo1(5,6,7,8);
    5:  SetValsTo1(5,14,15,16);
    6:  SetValsTo1(5,15,16,26);
    7:  SetValsTo1(6,15,16,25);
  end;