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.