多米诺数据库检查是否有数据
function NoteExport.hasDoc: Boolean;

var
  doc: IDocument;
  id: OleVariant;
begin
  Result := False;
  try
    docview.Refresh;
    doc := doccur;
    if doc = nil then
    begin
      doc := docview.GetFirstDocument;
    end
    else
      doc := docview.GetFirstDocument;
      //doc := docview.GetNextDocument(doc);
    {while (not VarIsNull(doc) and
      (VarIsNull(doc.GetItemValue('ToArcYes')) or VarIsEmpty(doc.GetItemValue('ToArcYes')))) do
    begin
      doc := docview.GetNextDocument(doc);
    end;}
    doccur := doc;
    if (doccur <> nil) and (not VarIsNull(doccur)) then
    begin
      Result := True;
    end
    else
      doccur := nil;
  except
    SendMsg('结束:获取文档');
  end;
end;
本文地址：http://www.xszlo.com/article/2012-12-10/7619.html，转发请保留这个地址，谢谢