【结】数据导入占用内存－急！！！**

beidou

做了一个数据导入的功能，代码如下

procedure TMAINFORM.ToolButton9Click(Sender: TObject);
Var
  lExcelToTable:TExcelToTable;
  lMsg,lStr: String;
begin
  BeforeOpenXLS(lStr);
  lMsg := '';
  OpenDialog.Filter := 'Excel(*.xls)|*.xls';
  if OpenDialog.Execute then
  begin
    lExcelToTable:=TExcelToTable.Create(self);
    try
      lExcelToTable.DataSource:=DataSetBrokerTargetValue;
      lExcelToTable.FileName := OpenDialog.FileName;
      lExcelToTable.StartRow := 1;
      lExcelToTable.EndRow := 9999;
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETNAME=Sheet1[1,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETCODE=Sheet1[2,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETTYPECODE=Sheet1[3,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FUNITNAME=Sheet1[4,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.SUBSTR(TABLE_TARGET.FENTITYCODE=Sheet1[5,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FVALUE=Sheet1[6,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FORDER=Sheet1[7,0]');
      lExcelToTable.Execute(lMsg);
    finally
       lExcelToTable.free;
    end;
  end;
  AfterInput(lStr);
  TSQLDataSet(DataSetBrokerTargetValue.DataSet).ApplyUpdates;
  DataGrid1.Refresh;
end;

遇到一个问题，每次导入后，内存占用总是增加100M左右的内存，也就是说，连续导入几次，内存就满了，死机了。。关闭窗体以后就自动释放内存了。
请斑竹给看看是什么原因。

beidou

做了一个数据导入的功能，代码如下

procedure TMAINFORM.ToolButton9Click(Sender: TObject);
Var
  lExcelToTable:TExcelToTable;
  lMsg,lStr: String;
begin
  BeforeOpenXLS(lStr);
  lMsg := '';
  OpenDialog.Filter := 'Excel(*.xls)|*.xls';
  if OpenDialog.Execute then
  begin
    lExcelToTable:=TExcelToTable.Create(self);
    try
      lExcelToTable.DataSource:=DataSetBrokerTargetValue;
      lExcelToTable.FileName := OpenDialog.FileName;
      lExcelToTable.StartRow := 1;
      lExcelToTable.EndRow := 9999;
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETNAME=Sheet1[1,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETCODE=Sheet1[2,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FTARGETTYPECODE=Sheet1[3,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FUNITNAME=Sheet1[4,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.SUBSTR(TABLE_TARGET.FENTITYCODE=Sheet1[5,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FVALUE=Sheet1[6,0]');
      lExcelToTable.FieldMap.Add('DataSetTargetValue.FORDER=Sheet1[7,0]');
      lExcelToTable.Execute(lMsg);
    finally
       lExcelToTable.free;
    end;
  end;
  AfterInput(lStr);
  TSQLDataSet(DataSetBrokerTargetValue.DataSet).ApplyUpdates;
  DataGrid1.Refresh;
end;

遇到一个问题，每次导入后，内存占用总是增加100M左右的内存，也就是说，连续导入几次，内存就满了，死机了。。关闭窗体以后就自动释放内存了。
请斑竹给看看是什么原因。

beidou

为什么没有人看帖子回答帖子啊

alang

AfterInput(lStr);
BeforeOpenXLS(lStr);
干什么的？

beidou

function  TMAINFORM.BeforeOpenXLS(var AStr: String):Boolean;
begin
  AStr := TSQLDataSet(DataSetBrokerTargetValue.DataSet).Group.KeyFieldNames;
  TSQLDataSet(DataSetBrokerTargetValue.DataSet).Group.KeyFieldNames := '';
  DataGrid1.ColumnByName('DataGrid1FTARGETCODE').Visible := true;
  DataGrid1.ColumnByName('DataGrid1FUNITNAME').Visible := false;
  DataGrid1.ColumnByName('DataGrid1FTARGETTYPECODE').Visible := false;
  DataGrid1.ColumnByName('DataGrid1SUBSTRTABLE_TARGETFENTITYCODE').Visible := false;
  DataSetBrokerTargetValue.DataSet.EmptyDataSet;
  result := true;
end;

function  TMAINFORM.AfterInput(var AStr: String):Boolean;
begin
  DataGrid1.ColumnByName('DataGrid1FTARGETCODE').Visible := false;
  DataGrid1.ColumnByName('DataGrid1FUNITNAME').Visible := true;
  DataGrid1.ColumnByName('DataGrid1FTARGETTYPECODE').Visible := true;
  DataGrid1.ColumnByName('DataGrid1SUBSTRTABLE_TARGETFENTITYCODE').Visible := true;
// DataSetBrokerTargetValue.DataSet.EmptyDataSet;
  TSQLDataSet(DataSetBrokerTargetValue.DataSet).Group.KeyFieldNames := AStr;
  DataGrid1.FullExpand;
  result := true;
end;

beidou

导入前，删除要导入的重复数据，删除分组
导入后，从新分组

beidou

自己顶一下，alang 继续啊

beidou

导入之前

beidou

导入一次

导入5次后，内存占用的数字是 1.5G

beidou

我得机组内存是2G，可是客户机器内存是512，所以影响很大