Klasse kopieren

[Martin W]

Jetzt hab ich schon länger rumprobiert, auch mit Assign... aber es will nicht klappen. Warum klappt z.B. dieser Code nicht:

Delphi-Quellcode:

// Profile
type TProfilDetails = class
  public
    Name: String;
  end;

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

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

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

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


function xxx: boolean,
begin
  TcpServerPreferences_bak.Assign(TcpServerPreferences);
end;

Gruß
Martin W.