TGUID-Wert innerhalb eines records in Json konvertieren (XE7)

[tobite]

Hallo, Ich habe ein Problem beim konvertieren eines TGUID-Werts in einen JSON-string. Zunächst die Variante, die funktioniert:

Delphi-Quellcode:

{$METHODINFO ON}
TTest = class (TObject)
private
[JSonReflect (ctString, rtString, TGuidInterceptor, nil, True)]
FID: TGUID;
public
property ID: TGUID read FID write FID;
end;
{$METHODINFO OFF}
(..)
S := TJson.ObjectToJsonString (TestObj);

Ich gebe also einen Interceptor an, der auch vom Marshaller aufgerufen wird, in dem die GUID in einen String umgewandelt wird.

In der Regel habe ich aber die GUID zusammen mit anderen Werten in einem Record, darum sehen die Objekte also bspw. so aus:

Delphi-Quellcode:

type
TRec = record
[JSonReflect (ctString, rtString, TGuidInterceptor, nil, True)]
FID: TGUID;
end;

TTest = class (TObject)
private
FRec: TRec;
public
property Rec: TRec read FRec;
end;
(..)
S := TJson.ObjectToJsonString (TestObj);

In dem Fall wird der Interceptor leider nicht aufgerufen! Es wird versucht, das Record zu konvertieren, darin dann den GUID-Wert, und beim 4. Feld knallt es dann, weil das byte-array nicht konvertiert werden kann.

Hat jemand eine Ahnung, wie man das umschiffen kann?

Vielen Dank,
Tobias