Daten zwischen Klassen übertragen (mit RTTI?)

[DeddyH]

Geht es hiermit?

Delphi-Quellcode:

uses System.Rtti;

...

procedure TDeineKlasse.AssignProps(Source: TObject);
var
  ctxSrc: TRttiContext;
  ctxDest: TRttiContext;
  rtSrc: TRttiType;
  rtDest: TRttiType;
  propSrc: TRttiProperty;
  propDest: TRttiProperty;
begin
  ctxSrc := TRttiContext.Create;
  try
    ctxDest := TRttiContext.Create;
    try
      rtSrc := ctxSrc.GetType(Source.ClassType);
      rtDest := ctxDest.GetType(ClassType);
      for propSrc in rtSrc.GetProperties do
        begin
          propDest := rtDest.GetProperty(propSrc.Name);
          if Assigned(propDest) and
            (propDest.PropertyType = propSrc.PropertyType) then
            if propDest.IsWritable then
              propDest.SetValue(self, propSrc.GetValue(Source));
        end;
    finally
      ctxDest.Free;
    end;
  finally
    ctxSrc.Free;
  end;
end;

Mein Originalcode sieht etwas anders aus, daher kann es sein, dass es nicht auf Anhieb funktioniert.

[lowmax_5]

Super, dass funktioniert! :thumb:

Code:

 MyClass1.AssignProps(myClass2);

Könnte man anstatt auf die Properties auf dem gleichen Weg auch auf die (privaten) Variablen zugreifen?

[DeddyH]

Ganz ehrlich: keine Ahnung. Du könntest es aber mal mit GetFields etc. versuchen.

[Stevie]

Urgs, bitte nicht über RTTI, die blind einfach alles rüberschaufelt. Damit handelt man sich bloß Probleme ein.

Leite die Klasse wie bereits erwähnt von TPersistent ab und benutz das bewährte Verfahren mit Assign/AssignTo.

[SebastianZ]

Alternativ könnte man es auch über einen Record abdecken:

Delphi-Quellcode:

  TMyRec = record
    Data1: String;
    Data2: Integer;
  end;

  TMyClass1 = class
  public
    Data: TMyRec;
    constructor Create;

    property Data1: String read Data.Data1 write Data.Data1;
    property Data2: Integer read Data.Data2 write Data.Data2;
  end;

  TMyClass2 = class(TMyClass1)
  end;

Delphi-Quellcode:

..
  myC1 := TMyClass1.Create;
  myC2 := TMyClass2.Create;
  try

    myC1.Data1 := 'myC1';
    myC2.Data := myC1.Data; //damit wird der Record kopiert
    
    myC1.Data1 := 'was anderes';

  finally
    myC2.Free;
    nyC1.Free;
  end;

Mit diesem Record kann man dann jede Klasse ausstatten, die diese Eigenschaften haben soll.

[einbeliebigername]

Hallo,

Zitat:

Zitat von DeddyH (Beitrag 1350607)

Das mit dem inherited wird aber so nicht funktionieren, zumindest in neueren Delphi-Versionen.

Das ist fast richtig. Nur es war schon immer so und nicht erst in neueren Delphi Versionen.

Zitat:

Zitat von DeddyH (Beitrag 1350607)

Da ruft TPersistent.Assign intern TPersistent.AssignTo auf, welches nur einen Fehler wirft und sonst nichts tut.

Das würde ich präziser ausdrücken.

Delphi-Quellcode:

TPersistent.Assign(Source: TPersistent)

ruft

Delphi-Quellcode:

Source.AssignTo(Self)

auf. Und die Implementierung von AssignTo in TPersistent wirft eine Exception.

Zitat:

Zitat von DeddyH (Beitrag 1350607)

Daraus folgt, dass man inherited nur dann aufruft, wenn die beiden Klassen nicht kompatibel sind.

Nicht ganz richtig. Das inherited ruft man auf, wenn die Basisklasse das übergebene Objekt behandeln kann und wenn man das übergebene Objekt nicht behandeln will. Also so:

Delphi-Quellcode:

type
  TMyClass1 = class(TPersistent)
  public
    Nr : Integer;
    NachName : string;
    Vorname : string;
    Telnr : string;
    procedure Assign(Source: TPersistent); override;
  end;

  TMyClass2=Class(TMyClass1)
  public
    PLZ : string;
    FremdNr : Integer;
    procedure Assign(Source: TPersistent); override;
  end;

implementation

{ TMyClass1 }

procedure TMyClass1.Assign(Source: TPersistent);
begin
  if Source is TMyClass1 then
    Nr := TMyClass1(Sender).Nr;
    NachName:= TMyClass1(Sender).NachName;
    Vorname := TMyClass1(Sender).Vorname;
    Telnr := TMyClass1(Sender).Telnr;
  end
  else
    inherited;
end;

{ TMyClass2 }

procedure TMyClass2.Assign(Source: TPersistent);
begin
  if Source is TMyClass2 then
    inherited;
    PLZ := TmyClass2(Sender).PLZ;
    FremdNr := TmyClass2(Sender).FremdNr;
  end
  else
    inherited;
end;

Und AssignTo überschreibt man, wenn man in der Zielklasse keine Änderung vornehmen kann oder in der Zielklasse die Quellklasse nicht zur Verfügung hat.

einbeliebigername.