Daten zwischen Klassen übertragen (mit RTTI?)

[lowmax_5]

Vielen Dank für die Antworten. Das 'Assign' löst das Problem für mich jedoch nicht.
Hintergrund: TmyClass2 wird z.B. erweitert und ich muss in der Folge die Assign-funktion dann für das neue Property auch erweitern.
Diesen Schritt hätte ich mir gerne gespart, so dass gleichnamige Properties erkannt und zugewiesen werden. Somit bräuchte dann nur TmyClass2 erweitert werden und das 'Assign' würde automatisch auch das neue Property kopieren.

[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!

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.