AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Vererbung und klassenspezifische Methoden

Ein Thema von SProske · begonnen am 21. Aug 2015 · letzter Beitrag vom 21. Aug 2015
 
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Vererbung und klassenspezifische Methoden

  Alt 21. Aug 2015, 11:10
Und hier ein kleines Beispiel für die Verwendung von Delphi-Referenz durchsuchenTPersistent
Delphi-Quellcode:
unit Unit2;

interface

uses
  System.Classes;

type
  TFoo = class abstract( TPersistent )
  protected
    procedure AssignTo( Dest: TPersistent ); override;
  public
    constructor Create( );
    constructor CreateFrom( Other: TFoo );
  end;

  TAdvancedFoo = class( TFoo )
  private
    FFirstName: string;
    procedure AssignTo( Other: TAdvancedFoo ); overload;
  protected
    procedure AssignTo( Dest: TPersistent ); overload; override;
  public
    property FirstName: string read FFirstName write FFirstName;
  end;

  TMoreAdvancedFoo = class( TAdvancedFoo )
  private
    FLastName: string;
    procedure AssignTo( Other: TMoreAdvancedFoo ); overload;
  protected
    procedure AssignTo( Dest: TPersistent ); overload; override;
  public
    property LastName: string read FLastName write FLastName;
  end;

implementation

{ TFoo }

procedure TFoo.AssignTo( Dest: TPersistent );
begin
  if Dest is TFoo
  then
  else
    inherited;
end;

constructor TFoo.Create;
begin
  inherited;
end;

constructor TFoo.CreateFrom( Other: TFoo );
begin
  Create;
  Self.Assign( Other );
end;

{ TAdvancedFoo }

procedure TAdvancedFoo.AssignTo( Dest: TPersistent );
begin
  inherited;
  if Dest is TAdvancedFoo
  then
    AssignTo( Dest as TAdvancedFoo );
end;

procedure TAdvancedFoo.AssignTo( Other: TAdvancedFoo );
begin
  Other.FFirstName := Self.FFirstName;
end;

{ TMoreAdvancedFoo }

procedure TMoreAdvancedFoo.AssignTo( Other: TMoreAdvancedFoo );
begin
  Other.FLastName := Self.FLastName;
end;

procedure TMoreAdvancedFoo.AssignTo( Dest: TPersistent );
begin
  inherited;
  if Dest is TMoreAdvancedFoo
  then
    AssignTo( Dest as TMoreAdvancedFoo );
end;

end.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
 


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 16:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz