Ähnlichen Quelltext verkürzen

[ferby]

Hallo,

ich habe wieder einen ganzen brocken an Quelltext der sich sehr ähnlich ist:

Delphi-Quellcode:

  randomize;
  stein_nr_aktiv:= random(7) + 1;

  case  stein_nr_aktiv of
    1:  begin
          feldaktive[6]:=1;
          feldaktive[16]:=1;
          feldaktive[25]:=1;
          feldaktive[26]:=1;
        end;
    2:  begin
          feldaktive[5]:=1;
          feldaktive[15]:=1;
          feldaktive[25]:=1;
          feldaktive[26]:=1;
        end;
    3:  begin
          feldaktive[5]:=1;
          feldaktive[6]:=1;
          feldaktive[15]:=1;
          feldaktive[16]:=1;
        end;
   4:   begin
          feldaktive[5]:=1;
          feldaktive[6]:=1;
          feldaktive[7]:=1;
          feldaktive[8]:=1;
        end;
   5:   begin
          feldaktive[5]:=1;
          feldaktive[14]:=1;
          feldaktive[15]:=1;
          feldaktive[16]:=1;
        end;
   6:   begin
          feldaktive[5]:=1;
          feldaktive[15]:=1;
          feldaktive[16]:=1;
          feldaktive[26]:=1;
        end;
   7:   begin
          feldaktive[6]:=1;
          feldaktive[15]:=1;
          feldaktive[16]:=1;
          feldaktive[25]:=1;
        end;
  end;

die Zahlen gehen nach keinen prinzip. Kann man das irgendwie vereinfachen oder ist das nicht möglich??


ferby