Ich habs jetzt mal mit dieser Variante versucht:
Delphi-Quellcode:
procedure TForm1.AnlegenClick(Sender: TObject);
begin
case Radiogroup1.itemindex of
0:
begin
Bezeichnung := 'Verbrennungsmotor';
Auto:=TFahrzeug.create(Radiogroup1.Items.GetText, Ed_L_H.Text);
Memo1.lines.Add := Auto.getDaten;
end;
Delphi-Quellcode:
constructor TFahrzeug.create (M_Bezeichnung: string; M_Leistung: string);
begin
Bezeichnung := M_Bezeichnung ;
Leistung :=M_Leistung ;
end;
...
function TFahrzeug.getDaten: string;
begin
result:= Bezeichnung + Leistung;
end;
Hier hab ich jetzt wieder das anfangsproblem. Inkompatible Typen und nicht genügend wirkliche Parameter bei der Zeile Memo1.lines.Add := Auto.getDaten;
Und ich hab grad echt ein Brett vorm Kopf (wohl eher ne Bohle)