Eigener Konstruktor

[FriendOfDelphi]

Zitat von angos:

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.