Klasse kopieren

[Martin W]

Hi;

Ich habe folgenden Code:

Delphi-Quellcode:

type TProfilDetails = class
  public
    Name: String;
  end;

type TProfil = class
  public
    File_version: integer;
    Profile: array of TProfilDetails;
  end;

// TCP Servereinstellungen
type TTcpServerPreferencesBindings = class
  public
    IP: String;
    Port: integer;
  end;

type TTcpServerPreferences = class
  public
    File_version: integer;
    Bindings: array of TTcpServerPreferencesBindings;
  end;

var
  Profil: TProfil;
  TcpServerPreferences: TTcpServerPreferences;
  Profil_bak: TProfil;
  TcpServerPreferences_bak: TTcpServerPreferences;

Mit der Klasse "Profil" und "TcpServerPreferences" arbeite ich ständig. Diese Daten verändern sich häufig in kurzen Zeitabständen. Wie kann ich die Werte von "Profil" nach "Profil_bak" am leichtesten kopieren?

Ich will nicht darauf verweisen, wie ich mit:

Profil_bak := Profil; tun würde. Ich will in beiden Klassen unabhängig voneinander Werte ändern können. Nur muss die Klasse Anfangs erst alle Werte der anderen Klasse kopiert bekommen... wie geht das am leichtesten?

Gruß
Martin W.