7 Segmentanzeige Problem!!

[criss-vross123]

Hallo Experten,
da wir in der Schule gerade eine 7 Segmentanzeige programmieren wollte ich das bei mir zu Hause auch probieren.
Also nun zum Problem:
ich habe 8 Panels eine Radiogroup und 3 Buttons
ich möchte das wenn ich auf den Button "Zahlenrythmus starten" klicke die Zahlen von 1-9 angezeigt werden.
ich habe mir das so gesacht:

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
radiogroup1.itemindex:=radiogroup1.itemindex+1;
if radiogroup1.itemindex=10 then radiogroup1.itemindex:=0;

end;

so dort bleibt er aber immer bei 9 stehen.
Warum?


mfG Chris

[DeddyH]

Weil ein ItemIndex von 10 bei 10 Radiobuttons nicht sein kann?

[criss-vross123]

naja aber wenn ich zum Beispiel "9" eingebe dann geht er nur bis zu 8 und fängt dann wieder von null an.

[Alien426]

Dann setze doch die Abfrage vor die Erhöhung.

[criss-vross123]

meinst du so:

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
if radiogroup1.itemindex=10 then radiogroup1.itemindex:=0;
radiogroup1.itemindex:=radiogroup1.itemindex+1;


end;

?

mfg Chris

[criss-vross123]

Ahh,
hat sich erledigt.
Manchmal steh ich echt aufm Schlauch

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
if radiogroup1.itemindex=9 then radiogroup1.itemindex:=-1;
radiogroup1.itemindex:=radiogroup1.itemindex+1;


end;

sry für die doofe Frage. Trotzdem danke für die Antworten



Thema kann geschlossen werden

[marabu]

Hallo Chris,

Zitat von criss-vross123:

... hat sich erledigt. ...

bist du da ganz sicher?

Delphi-Quellcode:

procedure TDemoForm.OnTimer(Sender: TObject);
begin
  with RadioGroup do
    ItemIndex := Succ(ItemIndex) mod Items.Count;
end;

Grüße vom marabu

[criss-vross123]

Hey Marabu...

Danke...is kurz und funktioniert.

aber könnte mir einer bitte erklären was die prozedur (with...do) genau macht?

mfG Chris

[marabu]

In der Delphi Hilfe findest du die Erklärung unter "with-Anweisungen".

Im vorliegenden Fall passiert folgendes: Das in der WITH-Anweisung vorgezogene Objekt erspart mir die Angabe des Objektes bei jeder Eigenschaft. Der Quellcode wird kompakter, aber für den Ungeübten lauern manchmal auch Gefahren durch Namensüberdeckung.

Delphi-Quellcode:

procedure TDemoForm.OnTimer(Sender: TObject);
begin
  RadioGroup.ItemIndex := Succ(RadioGroup.ItemIndex) mod RadioGroup.Items.Count;
end;

Gute Nacht

[dominikkv]

wollte ich nur mal -> anmerken