Property auf untergeordeter Klasse anstoßen (Pascal)

OP #1975593
Lesenswert?

Hi!

bin gerade via Lazarus an erstellen einer Klasse, welche eine Urklasse 
Besitzt und deren Property aus den klassen, welche auf diese zugreifen 
anstoßen soll.

Klartext:

 TBauelemente = class(TGraphicControl)
  private
    { Private declarations }
.
  strict protected
    BEAllg: TBEAllg;
  protected
    { Protected declarations }
  public
    { Public declarations }
.    Index: String;
    Procedure SetDatensatz(_Index: Byte; Value: String);
 published
    { Published declarations }
    property Datensatz[Value:Byte]: String read GetDatensatz write 
SetDatensatz; Override;
    Constructor Create(AOwner: TComponent); Override;
  end; <<< Dies ist die Urklasse.

Über die erbende Klasse soll der "Datensatz" angestoßen werden und sich 
selbstständig die Daten einladen.

Wenn jemand einen Tip hat, bin i sehr dankbar.

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren