Thema: Delphi Klasse in Klasse

Einzelnen Beitrag anzeigen

LoL
(Gast)

n/a Beiträge
 
#1

Klasse in Klasse

  Alt 3. Jun 2005, 10:11
hi

Ich habe eine Klasse die ich von TLineSeries abgeleitet habe. Als eigenschaft habe ich eine andere Klasse asl Eigenschafts-kontainer von TPersistent abgeleitet. Wie kann ich nun in einer Funktion der Klasse von TPersistent auf die Funktionen der Übergeorneten Klasse zugreifen?

Delphi-Quellcode:
type
  TProcessDescription = class(TPersistent)
  private
    {eigenschaften}
  public
    procedure machwas;
  end;

  TdddLineSeries = class(TLineSeries)
  private
    { Private declarations }
    FProzDesc : TProcessDescription;
    procedure SetProzDesc(Value : TProcessDescription);
  protected
    { Protected declarations }
  public
    { Public declarations }
    property ProzDesc : TProcessDescription read FProzDesc write SetProzDesc;

    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;

procedure TProcessDescription.machwas;
begin
  //auf TdddLineSeries zugreifen?
end;
//////////////////////////////////////////////////////////////////////////////
procedure TdddLineSeries.SetProzDesc(Value : TProcessDescription);
begin
  if not(CompareMem(@Value, @FProzDesc, sizeof(Value))) then
    FProzDesc := Value;
end;
  Mit Zitat antworten Zitat