Eigener Konstruktor

[freak4fun]

Delphi-Quellcode:

constructor TAuto.Create(col: string);
begin
  inherited Create; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
  FFarbe := col;
end;

Delphi-Quellcode:

var
  LKW: TAuto;
begin
  LKW:=TAuto.Create( 'rot');

Du benutzt den Constructor ohne Parameter in deinem Beispiel.

[FriendOfDelphi]

Zitat von freak4fun:

Delphi-Quellcode:

constructor TAuto.Create(col: string);
begin
  inherited Create; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
  FFarbe := col;
end;

Delphi-Quellcode:

var
  LKW: TAuto;
begin
  LKW:=TAuto.Create( 'rot');

Du benutzt den Constructor ohne Parameter in deinem Beispiel.

Du hast natürlich recht.
Da hat sich ein "copy and paste"-Fehler eingeschlichen.
Ich habe da ein weng experimentiert (mit und ohne Parameter).
Wenn die Methode mit Parameter deklariert und implementiert wurde, muss sie natürlich auch mit Parameter aufgerufen werden.
Das soll aber nicht so sein. Bei der Erzeugung des Objekts, soll diesem sofort und ohne weiteres Zutun, die Farbe "rosa" zugewiesen werden.

So sollte es aussehen:

Delphi-Quellcode:

constructor TAuto.Create;
begin
  inherited Create; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
  FFarbe:='rosa';
end;

Delphi-Quellcode:

var
  LKW: TAuto;
begin
  LKW:=TAuto.Create;

Funktioniert aber nicht.

[mkinzler]

Funktioniert schon, könnte oder hat mit großer Wahrscheinlichkeit Seiteneffekte und führt nicht zum gewünschten Ergebnis