Einzelnen Beitrag anzeigen

bttb930

Registriert seit: 6. Okt 2003
372 Beiträge
 
#4

Re: Frage zu OOP - zwei Listen

  Alt 18. Sep 2006, 08:49
Na, du lässt es einfach bei "self.s := Source" und lässt den Rest weg. TGraphicObject braucht keine Eigenschaften die schon in TElement stehen - die kann es sich ja von TElement holen. Also etwa

Delphi-Quellcode:
type
  TGraphicObject = class
  private
    Element: TElement;
    function GetColor: TColor;
  ...
  public
  ...
    property Color: TColor read GetColor;
  end;

...

function TGraphicObject.GetColor: TColor;
begin
  if Assigned(Element) then
    Result := Element.Color
  else
    ...;
end;
Und Thema Design Patterns: Die lernt man nicht "mal eben", mach also unbedingt weiter wie bisher aber befass dich vielleicht mal in der Zukunft damit.
  Mit Zitat antworten Zitat