Forum: Object-Pascal / Delphi-Language
by himitsu,
12. Okt 2016
Etweder man schreibt 'ne Eigene Methode, die sich "Assign" nennt,
oder die Klassen müssen Nachfahren von TPersistent oder TComponent sein, wo man deren Assign überschreibt und die Zuweisungen seiner Property da rein baut.
type
TMyClass1 = class(TPersistent)
...
procedure Assign(Source: TPersistent); override;
end;
TMyClass2 = class(TMyClass1) // oder class(TPersistent)...
Forum: Object-Pascal / Delphi-Language
by himitsu,
12. Okt 2016
Das ist eigerntlich richtig, aber wenn man das öfters macht, dann darf man diesen Code auch gern in die Assign-Methode seiner Klassen verlagern. (von TPersistent oder TComponent geerbt)
TPersistent.Assign und TPersistent.AssignTo
Property Inhalt/Einstellungen von SL1 in SL2 übernehmen:
var
SL1: TStrings;
SL2: TStringList;
...
SL2.Assign(SL1);