Enlib 3.0 数据导入导出功能解析

Enlib 3.0 简化了数据导入导出的复杂流程，支持 Text、CSV、HTML、RTF、XLS 等多种文件格式以及内部数据格式。用户可以选择导出全部数据或选定区域数据。

核心函数：

• Pascal: SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:tempfile1.txt',False);
• C++: SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:temp file1.txt",false);

参数说明：

• 最后一个参数 False 表示导出选定区域数据，True 则导出整个表格数据。

代码示例：

以下代码演示了如何将表格数据导出为 Excel 文件：

procedure TForm1.B_expClick(Sender: TObject);
var
  ExpClass: TDBGridEhExportClass;
  Ext: String;
begin
  SaveDialog1.FileName := 'file1';
  if (ActiveControl is TDBGridEh) then
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin
          ExpClass := TDBGridEhExportAsText;
          Ext := 'txt';
        end;
        2: begin
          ExpClass := TDBGridEhExportAsCSV;
          Ext := 'csv';
        end;
        3: begin
          ExpClass := TDBGridEhExportAsHTML;
          Ext := 'htm';
        end;
        4: begin
          ExpClass := TDBGridEhExportAsRTF;
          Ext := 'rtf';
        end;
        5: begin
          ExpClass := TDBGridEhExportAsXLS;
          Ext := 'xls';
        end;
      end;
      SaveDBGridEhToExportFile(ExpClass, DBGridEh1, SaveDialog1.FileName + '.' + Ext, False);
    end;
end;