AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Kann man den Typ vererbter Properties oder Methoden ändern

Kann man den Typ vererbter Properties oder Methoden ändern

Ein Thema von dataspider · begonnen am 19. Okt 2011 · letzter Beitrag vom 19. Okt 2011
Antwort Antwort
Benutzerbild von dataspider
dataspider
Online

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.302 Beiträge
 
Delphi 10.3 Rio
 
#1

Kann man den Typ vererbter Properties oder Methoden ändern

  Alt 19. Okt 2011, 13:08
Hallo,

ich versuche gerade, den Zugriff auf DataModule in meinem Code zu vereinfachen.
Momentan habe ich eine virtuelle Methode DM: TDataModule in meinen Base DataForms.

In den abgeleiteten DataForms wie TfrmKunde ist aber der Typ dann z.B. TDMKunden.

Momentan caste ich beim Zugriff immer, wenn ich spezielle Eigenschaften des DataModules brauche.
Genial wäre es, wenn ich auch in TfrmKunden einfach DM verwenden könnte ohne zu casten.
Den Typ kann ich aber nicht ändern, oder gibt es da einen Trick?

Frank
Frank Reim
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.921 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: Kann man den Typ vererbter Properties oder Methoden ändern

  Alt 19. Okt 2011, 13:48
Du meinst in etwa so?

Delphi-Quellcode:
type
  TBaseDataModule = class

  end;

  TBaseDataForm = class
  private
    FDataModule: TBaseDataModule;
  protected
    function GetDataModule: TBaseDataModule;
    procedure SetDataModule(const Value: TBaseDataModule);
  public
    property DataModule: TBaseDataModule read GetDataModule write SetDataModule;
  end;

  TCustomerDataModule = class(TBaseDataModule)

  end;

  TCustomerDataForm = class(TBaseDataForm)
  protected
    function GetDataModule: TCustomerDataModule;
    procedure SetDataModule(const Value: TCustomerDataModule);
  public
    property DataModule: TCustomerDataModule read GetDataModule write SetDataModule;
  end;

{ TBaseDataForm }

function TBaseDataForm.GetDataModule: TBaseDataModule;
begin
  Result := FDataModule
end;

procedure TBaseDataForm.SetDataModule(const Value: TBaseDataModule);
begin
  FDataModule := Value;
end;

{ TCustomerDataForm }

function TCustomerDataForm.GetDataModule: TCustomerDataModule;
begin
  Result := inherited GetDataModule as TCustomerDataModule;
end;

procedure TCustomerDataForm.SetDataModule(const Value: TCustomerDataModule);
begin
  inherited SetDataModule(Value);
end;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider
Online

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.302 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Kann man den Typ vererbter Properties oder Methoden ändern

  Alt 19. Okt 2011, 14:06
Du meinst in etwa so?
Genau so.

Ich hatte es so schon probiert, bin aber durch einen peinlichen Fehler erfolglos gewesen.

Vielen Dank.

Frank
Frank Reim
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf