OOP - Neuling braucht ein bisschen Hilfe

[mkinzler]

Delphi-Quellcode:

  case Radiogroup1.itemindex of
   0:
    begin
     Bezeichnung := 'Verbrennungsmotor';
    end;
   1 :
    begin
     M_Bezeichnung:= 'Elektromotor';
    end;
   2 :
    begin
     M_Bezeichnung:= 'Hybridantrieb';
    end;
   3 :
    begin
     M_Bezeichnung:= 'Wasserstoffantrieb';
    end;
    else
    begin
     M_Bezeichnung:= ';
    end;
    if M_Bezeichnung <> '' then          
        Memo1.lines.Add(M_Bezeichnung);
  end;