Question

这个简单的代码片段不起作用，我想按名称对文档进行排序，但返回的文档没有订单

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;

[编辑]：2017年6月15日解决了最新修补程序

Answer 1

好的，使用sort属性时，排序不起作用，但使用$orderby运算符我可以做同样的事情。

如果它有用，这是一个简单的代码段

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;

Answer 2

我用Marco的修正修改了github repo，但这是未经测试的。该库目前尚未维护，我不再拥有编译器的许可证。

排序似乎不起作用mongo-delphi-driver

2 个答案: