Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Procedure vereinfachen.

    Delphi
    by Gruber_Hans_12345, 25. Sep 2004
  procedure TForm1.levelladenmenueClick(Sender: TObject);
  var levelOK : Boolean;
  begin
  levelOK := levelladenmenue.itemindex = 0;
  if levelladenmenue.itemindex > 0 then
  levelOK := levelladenmenue.Items<>'<Level noch nicht verfügbar>' ;
  if levelOK then begin
  level:=levelladenmenue.itemindex+1;
  spieltimer.enabled:=true;
  levelladenmenue.Visible:=false;