mORMot Open Source

{collection:"MyDB.MyColl",opCode:"opUpdate",requestID:41,selector:{_id:1},update:{MyField:1}}

{collection:"MyDB.MyColl",opCode:"opUpdate",requestID:41,selector:{_id:1},update:{$set:{MyField:true}}}

  VDynArr.Add(I);
  VDynArr.Sort;

 if not VDynArr.FastLocateSorted(I, VNewIndex) then begin
      VDynArr.Insert(VNewIndex, I);
 end;

type
  TDynArrayExt = object(TDynArray)
  public
    function FastLocateSorted(const Elem; out Index: Integer): boolean;
  end;

function TDynArrayExt.FastLocateSorted(const Elem; out Index: Integer): boolean;
var n, L, i, cmp: integer;
    P: PAnsiChar;
begin
  result := False;
  Index := -1; // return -1 if not Sorted
  if fSorted and (@fCompare<>nil) then begin
    P := fValue^;
    L := 0;
    n := Count - 1;
    while L <= n do begin
      i := (L+n) shr 1;
      cmp := fCompare(P[cardinal(i)*ElemSize],Elem);
      if cmp=0 then begin
        L := i;
        result := True;
        Break;
      end else
        if cmp<0 then
          L := i+1 else
          n := i-1;
    end;
    // if result is True - return the index of existing Elem
    // if result is False - return the index where to insert
    Index := L;
  end;
end;

procedure Test;
var
  I, VIndex, VNewIndex, VCount: Integer;
  VIntArr: TIntegerDynArray;
  VDynArr: TDynArrayExt;
begin
  VDynArr.InitSpecific(TypeInfo(TIntegerDynArray), VIntArr, djInteger, @VCount);

  for I := 1 to 6 do begin
    VDynArr.Add(I);
  end;
  VDynArr.Sorted := True;

  I := 3;
  VIndex := VDynArr.Find(I);

  if VIndex >= 0 then begin
    VDynArr.Delete(VIndex);
    VDynArr.Sorted := True;

    if not VDynArr.FastLocateSorted(I, VNewIndex) then begin
      Assert(VNewIndex >= 0);
      Assert(VNewIndex = VIndex);

      VDynArr.Insert(VNewIndex, I);
      VDynArr.Sorted := True;
    end;
  end;
end;

program SynLogTest;

{$APPTYPE CONSOLE}

uses
  SysUtils, SynLog, SynCommons;

procedure DoTest;
begin
  with TSynLog.Family do begin
    Level := LOG_VERBOSE;
    EchoToConsole := LOG_VERBOSE;
  end;
  TSynLog.Add.Log(sllDebug, StringToUTF8('Test message'));
  TSynLog.Add.Flush(True);
end;

begin
  try
    Writeln(SynCommons.SYNOPSE_FRAMEWORK_FULLVERSION); // 1.18.1048 FTS3
    DoTest;
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

type
  TMyClass = class
  private
    FText: string;
  published
    property Text: string read FText write FText;
  end;

  ...

var
  m: TMyClass;
  s: RawUTF8;
begin
  m := TMyClass.Create;
  m.Text := 'One-Один'; // chars in win-1251 encoding (Russian)

  s := ObjectToJson(m, [woStoreClassName]);
  ...
end;

{"ClassName":"TMyClass","Text":"One-"}

         procedure TJSONSerializer.WriteObject(Value: TObject; Options: TTextWriterWriteObjectOptions);
        
        ...
        
        {$ifdef FPC}tkAString,{$endif} tkLString: begin
          HR(P);
          Add('"');
          P^.GetLongStrProp(Value,tmp);          
          AddAnyAnsiString(tmp,twJSONEscape,P^.PropType^.AnsiStringCodePage); // AnsiStringCodePage = 65535 ($FFFF)
          Add('"');
        end;

        class function TSynAnsiConvert.Engine(aCodePage: cardinal): TSynAnsiConvert;
        var i: integer;
        begin
          if SynAnsiConvertList=nil then begin
            GarbageCollectorFreeAndNil(SynAnsiConvertList,TObjectList.Create);
            CurrentAnsiConvert := TSynAnsiConvert.Engine(GetACP);
            WinAnsiConvert := TSynAnsiConvert.Engine(CODEPAGE_US) as TSynAnsiFixedWidth;
            UTF8AnsiConvert := TSynAnsiConvert.Engine(CP_UTF8) as TSynAnsiUTF8;
          end;
 --      if aCodePage=0 then begin
 ++      if (aCodePage=0) or (aCodePage=65535) then begin
            result := CurrentAnsiConvert;
            exit;
          end;
          with SynAnsiConvertList do
            for i := 0 to Count-1 do begin
              result := List[i];
              if result.CodePage=aCodePage then
                exit;
            end;
          if aCodePage=CP_UTF8 then
            result := TSynAnsiUTF8.Create(CP_UTF8) else
          if aCodePage=CP_UTF16 then
            result := TSynAnsiUTF16.Create(CP_UTF16) else
          if IsFixedWidthCodePage(aCodePage) then
            result := TSynAnsiFixedWidth.Create(aCodePage) else
            result := TSynAnsiConvert.Create(aCodePage);
          SynAnsiConvertList.Add(result);
        end;