Und wie performant ist das mit dem JSON hin und her konvertieren?
Es sieht allerdings deutlich aufgeräumter aus als
Delphi-Quellcode:
procedure TCTGNote.Assign(Source: TCTGNote);
begin
if Assigned(Source) and (Source is TCTGNote) then
begin
Self.fID := Source.fID;
Self.fTraceID := Source.fTraceID;
Self.fEntryDate := Source.fEntryDate;
Self.fNote := Source.fNote;
Self.fUserName := Source.fUserName;
Self.fUserID := Source.fUserID;
Self.fNoteType := Source.fNoteType;
end;
end;
Sherlock