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;