procedure TfmeWebDBListBase.ExportData; var   i, rowindex, colindex: Integer;   ms : TMemoryStream; begin   { 检查数据集 }  if Assigned(cdsMain) and cdsMain.Active then   try     { 创建Excel文件 }     FlexCelImport1.NewFile(1);     cdsMain.First;     { 第一行为标题 }     rowindex := 1;     colindex := 1;     for i := 0 to cdsMain.FieldCount -1 do      { 只导出数据集中可视的字段 }       if cdsMain.Fields[i].Visible then       begin         FlexCelImport1.CellValue[rowindex, colindex] := cdsMain.Fields[i].DisplayLabel;         inc(colindex);       end;    { 依次导出数据 }     while not cdsMain.Eof do     begin      { 增加一行 }       inc(rowindex);       colindex := 1;       for i := 0 to cdsMain.FieldCount -1 do        { 只导出数据集中可视的字段 }         if cdsMain.Fields[i].Visible then         begin          { 时间和日期字段需要单独出来一下，否则出来的都是浮点数 }           if cdsMain.Fields[i].DataType in [ftDate, ftDateTime, ftTime, ftTimeStamp] then             FlexCelImport1.CellValue[rowindex, colindex] := cdsMain.Fields[i].AsString           else             FlexCelImport1.CellValue[rowindex, colindex] := cdsMain.Fields[i].Value;           inc(colindex);         end;      { 下一条 }       cdsMain.Next;     end;     { 创建内存流 }     ms := TMemoryStream.Create;     try      { 将Excel保存到内存流 }       FlexCelImport1.SaveToStream(ms);       ms.Position := 0;      { 将数据流发送到客户端，同时指定下载文件名，非常简单 }       MainForm.uniApplication.UniSession.SendStream(         ms, ModelName + ‘.xls‘ );     finally       ms.Free;     { 清理内存 }      FlexCelImport1.CloseFile;     end;  except     on E : Exception do       FlexCelImport1.CloseFile;   end; end;