Eigener Konstruktor

[FriendOfDelphi]

Hallo!

Ich eine Frage zur Verwendung eigener Konstruktoren.

Allgemein:
Objektreferenz := Klasse.Create;
Konkret:
MeinAuto := TAuto.Create;
Ich möchte erreichen, dass zu dem Zeitpunkt wenn das Objekt erzeugt wird, einige Datenfelder des Objekts mit vorgegebenen Werten und nicht mit Standardwerten initialisiert werden.
Standardwerte sind:

• Datenfelder mit einem ganzzahligen Datentyp (z.B. Integer) werden mit 0 initialisiert
• Datenfelder mit einem String-Typ werden durch eine leere Zeichenkette initialisiert

Wie gesagt, wenn "MeinAuto" erzeugt wird, sollen eigene Werte über einen eigenen Konstruktor in die Datenfelder des Objekts geschrieben werden.

Hier die Unit mit der Beispielklassendefinition:

Delphi-Quellcode:

type
  TAuto = class(TObject)
  private
    FFarbe: string;
    procedure SetFarbe(Farbe: string);
    constructor Create(col: string);
  public
    property Farbe: string read FFarbe write SetFarbe;
end;

Delphi-Quellcode:

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

Und hier das Beispielprogramm in einer anderen Unit:

Delphi-Quellcode:

var
  LKW: TAuto;
begin
  LKW:=TAuto.Create;
  LKW.Farbe:='rot';

Leider funktioniert das so nicht.
Die Farbe wird erst mit der Zeile LKW.Farbe:='rot'; gesetzt. Die Initialisierung des Feldes "Farbe" im Konstruktur FFarbe:='rosa'; erfolgt nicht.
Was mache ich falsch?

[xZise]

Moin,
was macht denn TAuto.SetFarbe()? Weil den rufst du ja nur im zweiten Fall auf.

Abgesehen davon ist der Konstruktor privat? Wie soll er also aufgerufen werden? Und nebenbei rufst du den falschen Konstruktor auf, weil deiner will ein Parameter.

MfG
Fabian

[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.

[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

[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

[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.

[freak4fun]

Hast du mal einen Breakpoint gesetzt und bist da durchgestept? Was bedeutet "Nur funktioniert das leider nicht." Welche Farbe ist gesetzt? Wie prüfst du ob es "funktioniert"?

[FriendOfDelphi]

Zitat von freak4fun:

Hast du mal einen Breakpoint gesetzt und bist da durchgestept? Was bedeutet "Nur funktioniert das leider nicht." Welche Farbe ist gesetzt? Wie prüfst du ob es "funktioniert"?

Ja, habe ich.
Folgender Effekt:
Wenn ich den Quellcode komplett, also Klassendefinition und die Verwendung der Klasse in eine Unit schreibe, dann kann ich einen Breakpoint im Konstruktor setzen und dieser wird auch durchlaufen.
Wenn ich, wie von mir bevorzugt, die Klasse in einer eigenen Unit definiere und diese in einer anderen Unit nur verwenden will, dann nimmt der Compiler die Breakpoints im Konstruktor weg, so dass ich dort keinen mehr setzen kann.
Um zu überprüfen welche Farbe gesetzt wurde, verwende ich einfach ein ShowMessage(LKW.Farbe); .
Das Feld ist aber immmer leer, also ''.
Es sei denn, ich verwende LKW.Farbe:='rot'; .
Dann wird die Farbe "rot" gesetzt.

[mkinzler]

Befindet sich die Unit (bzw. deren Pfad) im Suchpfad?