case geht nich ?!?

[JasonDX]

Zitat von leddl:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
  var i:integer; 
  begin 
    inc(i); 
    case i of 
      1..4: timer5.Enabled:=true; 
      5:    showmessage('test'); 
      6:    timer1.Enabled:=false; 
    end; 
  end;
end;

Hättest deinen Code etwas strukturiert, wäre dir das fehlende "end" sofort ins Auge gesprungen

Haettest du die Einrueckung nich so verplant, haettest du auch nicht solch *fieps* geschrieben


greetz
Mike