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.