Procedure vereinfachen.

[ferby]

Hallo,

Ich habe jetzt ein Programm bald vertig und versuche einige Teile zu verkürzen/vereinfachen.

Z.B: diese TRadioGroup:

Delphi-Quellcode:

procedure TForm1.levelladenmenueClick(Sender: TObject);
begin
  case levelladenmenue.itemindex of
    0:  begin
          level:=1;
          spieltimer.enabled:=true;
          levelladenmenue.Visible:=false;
          hauptlabel1.caption:='';
          status:='ladelevel';
        end;

    1:  begin
          if levelladenmenue.Items[1]<>'<Level noch nicht verfügbar>' then
          begin
            level:=2;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    2:  begin
          if levelladenmenue.Items[2]<>'<Level noch nicht verfügbar>' then
          begin
            level:=3;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    3:  begin
          if levelladenmenue.Items[3]<>'<Level noch nicht verfügbar>' then
          begin
            level:=4;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    4:  begin
          if levelladenmenue.Items[4]<>'<Level noch nicht verfügbar>' then
          begin
            level:=5;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;
  end;
end;

Ich habe mehrere Sachen versucht um dieses Procedure zu vereinfachen aber jedesmal stoße ich an ein anderes Problemm.
Wisst ihr eine vereinfachung die 100% das selbe macht wie meine Version?

[edit=Luckie]Delphi-Tags. Mfg, Luckie[/edit]