if Klausel: Wort für "aktiv"?

[nixalsverdruss]

Hallo an alle,
ich hab ein Problem: Wie heißt das Wort für "aktiv" in einer if then Klausel? Also wenn der Radiobutton aktiv ist (angeklickt ist) soll nach einem Klick auf einen Button das un das passieren...
Sollte auch per "and" funktionieren, also in ner RadioGroupbox.
danke schon ma für eure Bemühungen
nixalsverdruss

[Klaus01]

RadioButton.checked

Grüße
Klaus

[nixalsverdruss]

Vielen Dank! süper! :lol:

[Michael Habbe]

Hi.

Wie Klaus schon schreibt für den einzelnen RadioButton "checked".

Willst Du ein RadioGroup abfragen, löst Du das am Besten mit Case, da Du den selektierten Eintrag über "ItemIndex" ermittelst:

Delphi-Quellcode:

case RadioGroup1.ItemIndex of
  -1: ShowMessage('Nichts markiert');
   0: Tuwas;
   1: Tuwas;
end;

Geht natürlich auch mit if, ist aber etwas mehr Schreibarbeit:

Delphi-Quellcode:

if RadioGroup1.ItemIndex = -1 then
  ShowMessage('Nichts markiert')
else
  if RadioGroup1.ItemIndex = 0 then
    Tuwas
  else
    if RadioGroup1.ItemIndex = 1 then
      Tuwas
    else
      Tuwas;

Gruß
Michael

[nixalsverdruss]

Danke an Michael,
so funktionierts besser...

[nixalsverdruss]

Hey,
ich hab noch ein Problem zu if-Klauseln: Wie schreibe ich: "wenn das und das nicht im Editfeld eingetragen wurde, dann das und das machen"? Also wenn etwas richtig eingetragen wurde passiert etwas. Das habe ich so gelöst:

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text= 'Grotvadder') and (edit2.Text= 'lääwt') then Form16.Show;
if (edit1.Text= 'Grotvadder') and (edit2.Text= 'lääwt') then close;

Danke schon mal im Voraus
nixalsverdruss

[Klaus01]

Zitat:

Zitat von nixalsverdruss

Hey,
ich hab noch ein Problem zu if-Klauseln: Wie schreibe ich: "wenn das und das nicht im Editfeld eingetragen wurde, dann das und das machen"? Also wenn etwas richtig eingetragen wurde passiert etwas. Das habe ich so gelöst:

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text= 'Grotvadder') and (edit2.Text= 'lääwt') then Form16.Show;
if (edit1.Text= 'Grotvadder') and (edit2.Text= 'lääwt') then close;

Danke schon mal im Voraus
nixalsverdruss

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text= 'Grotvadder') and not (edit2.Text= 'lääwt') then Form16.Show;
if (edit1.Text= 'Grotvadder') and not (edit2.Text= 'lääwt') then close;

oder

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text= 'Grotvadder') and (edit2.Text <> 'lääwt') then Form16.Show;
if (edit1.Text= 'Grotvadder') and (edit2.Text <> 'lääwt') then close;

Grüße
Klaus

[DeddyH]

Das würde ich mal ändern:

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
if (edit1.Text= 'Grotvadder') and (edit2.Text= 'lääwt') then 
  begin
    Form16.Show;
    close;
  end;

Und das Gegenteil wäre dann:

Delphi-Quellcode:

if (edit1.Text <> 'Grotvadder') or (edit2.Text <> 'lääwt') then

[nixalsverdruss]

Dankeschön...das hab ich gesucht! :lol:

[nixalsverdruss]

Ich hab das jetzt so gemacht, aber er zeigt in der "end." Zeile rot an, dass sie falsch wäre. Hier der Delphicode:

Delphi-Quellcode:

procedure TForm19.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
  -1: ShowMessage('Nichts markiert');
   0: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
   1: Label3.Caption:='Dat is richtig!';
   2: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
   3: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
   4: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
end;

end.

Was ist daran falsch?
Danke schon mal im Voraus
nixalsverdruss