【搞定】自定义数据集能否持久保存数据？**

zwjcooldd

自定义数据集能否像标准数据集那样，把在程序运行时候输入的数据一直保存，而不会临时保存？

lixy

只要不打开关闭，或者清空自定义数据集就丢不了

zwjcooldd

打开关闭怎么会丢了呢？不明白！  在你们做的图中的功能中“业务操作URL”用的就是自定义数据集。功能在关闭时候，数据集不也随之关闭了么？按照你说的数据应该丢掉啊！可是这里的数据设置了一直就存在啊

lixy

3楼的肯定人家关闭的时候把数据已经存储了。
自定义数据集只是在内存中存着，并不物理保留。

zwjcooldd

恩，我再看看

zwjcooldd

if BizOperationDialog.Execute then
  begin
    BizOperationDataSet.Edit;
    for I := 0 to BizOperationDialog.Files.Count - 1 do
    begin
      lBizUrl.FileName := BizOperationDialog.Files[I];
      if  BizOperationDataSet.DataSet.Locate('BizOperationURLs',lBizUrl.URL,[]) = False then
      begin
        BizOperationDataSet.DataSet.Append ;
        BizOperationDataSet.DataSet.FieldByName('BizOperationURLs').AsString := lBizUrl.URL;
        //BizOperationDataSet.DataSet.Post ;
      end;
    end;
  end;
  finally
我看这里并没有存储操作啊，只是存到了用户自定义表中啊！另外自定义数据集中字段也没有写事件；在自定义数据集中有个这样的事件
procedure TTASKRELEVANCYDATAINFO.DataSetBizOperationDataSetFieldChange(DataSet: TDataSet; Field: TDataField);
begin
  if Assigned(OnFieldChange) then
    OnFieldChange(DataSet, Field);
end;
没看明白！OnFieldChange(DataSet, Field);
这句的代码体找不到如果是迭代调用的话，它也没有干什么啊！没有做存储！

lixy

楼主你看看这个函数。。。。。。。。。。。。
procedure TTASKRELEVANCYDATAINFO.Save;

zwjcooldd

procedure TMAINFORM.Save;
begin
  TTaskRelevancyDataInfo(InfoBroker.Info).Save ;
end;
OK