Objekt im onCreate erzeugen, aber wie?

[Delphi.Narium]

Das Problem hierbei ist einfach nur die Benutzung von With. Wenn man Pech hat und sich ein bisserl verschreibt, kommt ggfls. trotzdem kompilierbarer Code heraus und bei der Fehlersuche wird es dann ggfls. sehr haarig.

Delphi-Quellcode:

with fLabel do
begin
  left := self.left;
  top := self.top;
  focusControl := self;
  parent := self.parent;
  Caption := self.Caption;
end;

Ist erstmal soweit ok.

Mir persönlich wäre es aber so deutlich lieber:

Delphi-Quellcode:

fLabel.left := left;
fLabel.top := top;
fLabel.focusControl := self;
fLabel.parent := parent;
fLabel.Caption := Caption;

Sollte ich in diesem Fall nämlich links von der Zuweisung ein Attribut nehmen, dass es bei TLabel nicht gibt, aber sehr wohl bei Self, bekäme ich eine Compilermeldung.

Wenn Self z. B. eine TCombobox ist, so kann dashier nicht funktionieren:

Delphi-Quellcode:

fLabel.left := self.left;
fLabel.top := self.top;
fLabel.focusControl := self;
fLabel.parent := self.parent;
fLabel.Caption := self.Caption;
fLabel.ItemIndex := self.ItemIndex;

Bei der Verwendung von With aber sehrwohl:

Delphi-Quellcode:

with fLabel do
begin
  left := self.left;
  top := self.top;
  focusControl := self;
  parent := self.parent;
  Caption := self.Caption;
  ItemIndex := self.ItemIndex;
end;

Links vom Gleichheitszeichen werden alle an der Stelle bekannten Attribute akzeptiert und nicht nur die, die zum with fLabel do gehören. Und da man Self nicht zwingend angeben muss, da alles, was ohne Self und ohne eine andere Komponente ... angegeben wird, automatisch Self zugeordnet wird, kann man sich hier schon ziemlichen "Strubbel" einhandeln, der trotzdem kompilierbar ist.

Ohne with ist das Auffinden von Fehlern schlicht und einfach deutlich einfacher, weil hier immer eine eindeutige Angabe der Attribute nötig ist.

Und ob ich links nun immer fLabel. davor schreibe und mir rechts das self. erspare, ist vom Schreibaufwand jetzt auch nicht so unbedingt ein großes Mengenproblem