anchor.diff:  
   {$IFDEF FPC}
     {$MODE DELPHI}
  +  {$modeswitch advancedrecords}
   {$ENDIF}
   
   interface
  
positive.code:   CheckIfDifferentAndAssign(aValue);
  end;
  
  function TNullableString.CheckIfDifferentAndAssign(const aValue: Variant): boolean;
  begin
    if VarIsNull(aValue) then
  
negative.code: begin
    if not Self.IsNull then
      Self.Value:= SysUtils.Trim(Self.Value);
  end;
  
  procedure TNullableString.ChangeToBlankIfNull;
  begin
    if Self.IsNull then
      Self.Value:= '';
  end;
  
  class function TNullableString.StringToVariant(const aValue: String): Variant;
  