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.