Hallo, ich schon wieder, mit einem neuen Problemchen...
Delphi-Quellcode:
TErstens = class(TComponent)
Wert1: String;
Wert2: String;
constructor Create(AOwner: TComponent);
end;
TZweitens = class(TLabel)
Startwert: String;
constructor Create(AOwner: TComponent);
end;
constructor TErstens.Create;
begin
inherited Create;
Wert1:=Startwert; //Hier liegt mein Problem, da der Startwert aus Zweitens stammt
end;
constructor TZweitens.Create;
var AErstens:TErstens;
begin
inherited Create;
AErstens:=TErstens.Create;
end;
So nun eine ganz kurze Erläuterung:
Im Constructor von Zweitens werden mehrere Instanzen von Erstens erzeugt (im Beispiel nur eine), die ich mit Startwerten vorbelegen möchte. Diese Startwerte möchte ich im Constructor von Erstens gleich mit zuweisen und zwar mit Werten, die aus Erstens stammen und das ist der Haken, weil das so nicht geht. Natürlich könnte ich nachdem ich die Instanz von Erstens erzeugt habe, den Wert einfach mit
Delphi-Quellcode:
...
AErstens.Wert1:=Startwert;
zuweisen, aber da in anderen Prozeduren von Zweitens weitere Instanzen von Erstens erzeugt und entfernt werden, wäre es schön, diese Arbeit nur einmal machen zu müssen, nämlich im Constructor von Erstens selbst. Wie kriege ich das hin?
Dank und Gruß,
Guido