Hi,
so wie es da steht, kann es doch gar nicht funktionieren (es sollte einen Compilerfehler geben)
Option 1:
Du übergibst dem Create die Farbe und setzt dementsprechend.
Delphi-Quellcode:
constructor TAuto.Create(col: string);
begin
inherited Create;
FFarbe:=col;
end;
procedure TForm1.btnClick(Sender: TObject);
var
LKW: TAuto;
begin
LKW:=TAuto.Create('rot');
end;
Option 2:
Du übergibst keine Farbe und nimmst "rosa"
Delphi-Quellcode:
constructor TAuto.Create;
begin
inherited Create;
FFarbe:='rosa';
end;
procedure TForm1.btnClick(Sender: TObject);
var
LKW: TAuto;
begin
LKW:=TAuto.Create;
LKW.Farbe:='rot';
end;
vielleicht in dem Zusammenhang auch für dich interessant sind folgende Stichwörter:
overload
override
reintroduze
Gruß
angos
Hallo!
Die "Option 2" war gemeint.
War ein "copyandpaste"-Fehler von mir (siehe auch meine Antwort an freak4fun).
Nur funktioniert das leider nicht.