Sorting seems doesn't work mongo-delphi-driver

Question

This simple snippet doesn't work, I would like sort the document by name but the documents returned have no order

procedure TForm1.Button1Click(Sender: TObject);
var
  cursor : TMongoCursor;
begin

  cursor := TMongoCursor.Create(BSON([]));
  cursor.sort := BSON(['name','1']);
  if mongo.find(ns, cursor) then begin
    while cursor.next() do begin
      ShowMessage(cursor.value().find('name').value);
    end;
  end;

end;

[EDIT]: solved with latest fix on Jun 15, 2017

Answer 1

Ok, with sort property the ordering doesn't work, but with $orderby operator I can do the same thing.

If it can be useful, this is a simple snippet

procedure TForm1.Button1Click(Sender: TObject);
var
    cursor : TMongoCursor;
    bb : TBsonBuffer;
    query, b : TBson;
begin

  bb := TBsonBuffer.Create();
  bb.append('$query', BSON([]));
  bb.append('$orderby', BSON(['name',-1]));
  query := bb.finish();
  cursor := TMongoCursor.Create(query);
  if mongo.find(ns, cursor) then begin
  while cursor.next() do begin
    ShowMessage(cursor.value().find('name').value);
  end;    

end;