OOP - Neuling braucht ein bisschen Hilfe

[Liam]

Danke für eure Hilfe ihr beiden. Ich hab die If-Anweisungen mal in eine Case gepackt, und jetzt hab ich auch kein Problem mehr mit inkompatiblen Typen. Allerdings kommt jetzt folgende Meldung:

"Konstantenausruck erwartet"

Delphi-Quellcode:

var
  Form1: TForm1;
  Auto: TFahrzeug;
  M_Leistung: string;
  M_Bezeichnung: string;
  Bezeichnerwahl: boolean;


procedure TForm1.AnlegenClick(Sender: TObject);
 begin
  case Bezeichnerwahl of
   Radiogroup1.itemindex=0 :
    begin
     M_Bezeichnung:= 'Verbrennungsmotor';
    end;
   Radiogroup1.itemindex=1 :
    begin
     M_Bezeichnung:= 'Elektromotor';
    end;
   Radiogroup1.itemindex=2 :
    begin
     M_Bezeichnung:= 'Hybridantrieb';
    end;
   Radiogroup1.itemindex=3 :
    begin
     M_Bezeichnung:= 'Wasserstoffantrieb';
    end;
  end;

Da ich nicht mehr wusste, wie man eine Case-Anweisung schreibt, hab ich mal im Internet geschaut und unter anderem folgendes gefunden:

Delphi-Quellcode:

var Note: Integer; 
    Wertung: String; 

CASE Note OF 
  1 : Wertung := 'Sehr gut'; 
  2 : Wertung := 'Gut'; 
  3 : Wertung := 'Befriedigend'; 
  4 : Wertung := 'Ausreichend'; 
  5 : Wertung := 'Mangelhaft'; 
  6 : Wertung := 'Ungenügend'; 
  ELSE Wertung := 'Diesen Notenwert gibt es nicht.'; 
END;   //von CASE

Bei diesem Beispiel ist es ja auch nicht anders geschrieben als wie bei mir.