ComboBox & Variablen

[twityzuz]

Hallöle!

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
if Combobox1.ItemIndex=1-6
then IstWiederholung:=true
else if Combobox1.ItemIndex=0
then IstWiederholung:=false;
end;

Hier erstmal der Code. Wenn ich also bei der ComboBox den Wert verändere geht die Variable IstWiederholung auf true - oder? Das funktioniert nämlich nicht - könnte es sein, dass es and dem 1-6 liegt?

Danke schonmal

[DeddyH]

Genau, denn 1-6 = -5, den Wert wird der ItemIndex wohl nie erreichen.

[chaosben]

Ja, richtig erkannt.
Du meinst bestimmt:
if Combobox1.ItemIndex in [1..6]

[twityzuz]

ich habe es so versucht:
Combobox1.ItemIndex=1..6 Dann war mein Ansatz gar nicht so schlecht

Danke

[DeddyH]

Entweder

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  IstWiederholung := Combobox1.ItemIndex in [1..6];
end;

oder (wenn der Wertebereich von Byte nicht mehr ausreicht):

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  IstWiederholung := (Combobox1.ItemIndex > 0) and (ComboBox1.ItemIndex < 12345);
end;

[twityzuz]

RichEdit1.SelAttributes.Style:=fsBold; Und was mache ich hier falsch?

[DeddyH]

Style ist ein Mengentyp.
RichEdit1.SelAttributes.Style := [fsBold];

[twityzuz]

Danke