Einzelnen Beitrag anzeigen

Liam

Registriert seit: 21. Mai 2010
11 Beiträge
 
Turbo Delphi für Win32
 
#15

Re: OOP - Neuling braucht ein bisschen Hilfe

  Alt 23. Mai 2010, 20:03
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)
  Mit Zitat antworten Zitat