anchor.diff:      Self.Value:= SysUtils.Trim(Self.Value);
   end;
   
  -function TNullableString.ToString: String;
  +function TNullableString.AsString: String;
   begin
     if Self.IsNull then
       Result := ''
  
positive.code:     procedure Assign(aSourceField : TField); overload;
      function AsVariant: Variant; override;
      procedure Trim();
      function ToString : String;
  
      property Value : String read GetValue write SetValue;
    end;
  
negative.code:       procedure Assign(aSourceField : TField); overload;
        function AsVariant: Variant; override;
  
        function AsString (aShowTime : boolean) : String;
  
        property Value : TDateTime read GetValue write SetValue;
    end;
  