Delphi通过FireDac连接Mongo数据库，查询记录，得到结果示例
发布：智码IT网 阅读：
以下Delphi代码，演示从MongoDB1库的collection1集合中，通过fieldName1查询关键字sKeywords，如果查到返回_id字段的值，否则返回空串：
function GetIDStrByKeywords(sKeywords: string): string;
begin
Result := '';
var sDBName := 'MongoDB1';
//将TFDConnection转换成 TMongoConnection
var oMongoConn: TMongoConnection := TMongoConnection(DM.FDConnection1.CliObj);
//IMongoCursor是接口，TMongoQuery实现了该接口
var oCrs: IMongoCursor := oMongoConn[sDBName]['collection1'].Find()
.Match()
.Add('fieldName1',sKeywords)
.&End; //Find方法返回TMongoQuery
if oCrs.Next() then
begin
var sJsonText := oCrs.Doc.AsJSON;
var objSuperObject: ISuperObject := SO(sJsonText);
Result := objSuperObject.s['_id'];
end;
end;