if Klausel: Wort für "aktiv"?

[jakobwenzel]

Da fehlt einfach einmal ein end;

[Zwoetzen]

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; // case
end; // procedure

end.

Das Case benötigt ein eigenes "end;"

[Fussball-Robby]

Zitat von jakobwenzel:

Da fehlt einfach einmal ein end;

Was man auch schnell sehen würde, wenn der Code richtig eingerückt wäre. Nach jedem begin, case, try [..] 2 Zeilen nach rechts, mit jedem end; 2 nach links:

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;

end.

[nixalsverdruss]

Stimmt danke!

[mkinzler]

Man könnte beim Case auch mehrere werte mit der selben Ausgabe zusammenfassen:
0,2,3,4: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';