case geht nich ?!?

[passsy]

Delphi-Quellcode:

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

sieht ja ganz schön aus aber geht nich :( woran liegts?

[MrKnogge]

i hat am anfang einen unbestimmten Wert beispielsweise 767567576, du musst die variable initialisieren.

Gruß

[Christian Seehase]

Moin Pascal,

"geht nicht" hat ja nicht wirklich Aussagekraft, aber:

Du verwendest eine lokale Variable, die nicht einmal initialisiert wird, also einen Zufallswert enthält.
Initialsierung nutzt Dir aber auch nichts, da der Wert nach dem verlassen der Routine verworfen wird.
Du müsstest die also woanders unterbringen.

[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 ;)

[passsy]

ah ok danke leute ich habs dann gelöst.

ich hab gedacht das n integer am anfang immer 0 is naja bin ja noch nich so lang dabei^^


das end hab ich nur vergessen rein zu kopieren^^

[JasonDX]

Zitat:

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 :P :mrgreen:
:zwinker:

greetz
Mike

[MrKnogge]

leddl, schau dir deinen Code mal bitte genauer an, du hast ein end zuviel !

Gruß

[leddl]

:oops: Man sollte nach zuviel Java-Programmierung nich mal kurz zwischen Dusche und Essen ne Antwort zu ner Delphi-Frage schreiben :lol:

[Christian Seehase]

Moin Pascal,

Zitat:

Zitat von passsy

ich hab gedacht das n integer am anfang immer 0 is naja bin ja noch nich so lang dabei^^

das dem nicht so ist, weisst Du ja jetzt ;-)

Aber mit einer lokalen Variable kannst Du das Problem auch nicht lösen, wenn Du sie initialisierst...

[xZise]

Also passy, wenn du i zu anfang der Prozedur auf 0 setzt, dann kann ich dir für jeden Aufruf der Funktion vorraus sagen, dass er machen wird ... Und zwar immer "timer5.enabled := true"

@ leddl, aber was ist dann mit dem switch :P