常规的数据操作：

     见上图，数据保存在.ClientDataSet1数据集中，为了将参数逐条保存在Txt文件中，做了对ClientDataSet（DBGridEh）的循环写盘和读盘操作：

      但是，原代码通过数据集循环 ，直接写入磁盘，出现：

     （1）ClientDataSet1不可再操作，比如对它进行再赋值。

     （2）甚至出现“Access violation at address 00402452 in module 'MedicalRec.exe'.Read of address FFFFFFC”出错信息提示。

      为此，解决问题。

     一、上网查内存越界，按网上办法 

     通过重新注册Windows的动态链接库。：

      （1）运行 -> cmd，

      （2）命令行执行：for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1 。

     不起作用。

    二、相关操作代码

    1、TClientDataSet三层运用，客户端，读取数据。

procedure TSys_Config_Frm.sButton7Click(Sender: TObject);
var S1,SQL:string;
begin
  S1:=sEdit1.Text;
  SQL:='select 排序,选择,主题,副题,名称,T,共性,备注,ITEMS,分支,ID from 系统配置 '+
       'where (分支='+#39+sFCID+#39+') and (主题='+#39+S1+#39+') '+
       'order by 主题,名称';
  DataModule1.ClientDataSet1.Active:=False;
  DataModule1.ClientDataSet1.DataRequest(SQL);
  DataModule1.ClientDataSet1.Active:=True;
  ClientDataSet1.Data:=DataModule1.ClientDataSet1.Data;
  DataModule1.ClientDataSet1.Active:=False;
  DBGridEh1.DataSource:=DataSource1;
  DBGridEh1.Columns.Items[0].Width:=36;
  DBGridEh1.Columns.Items[1].Width:=36;
  DBGridEh1.Columns.Items[2].Width:=80;
  DBGridEh1.Columns.Items[3].Width:=50;
  DBGridEh1.Columns.Items[4].Width:=200;
  DBGridEh1.Columns.Items[5].Width:=36;
  DBGridEh1.Columns.Items[6].Width:=36;
  ClientDataSet1.Fields[1].DisplayLabel:='√';
  DBGridEh1.Columns[1].Title.Alignment := taCenter;    // 标题居中
  DBMemo1.DataSource:=DataSource1;
  DBMemo1.DataField:='Items';
  DBMemo2.DataSource:=DataSource1;
  DBMemo2.DataField:='备注';
end;

    2、当ClientDataSet数据集，单独一行数据段读写磁盘中Txt文件后，正常。

procedure TSys_Config_Frm.Button13Click(Sender: TObject);
var FileName:string;
    S1,S2:string;
    MyList:TStringList;
begin
  MyList:=TStringList.Create;
  S1:=Trim(ClientDataSet1.FieldByName('主题').AsString);
  S2:=Trim(ClientDataSet1.FieldByName('名称').AsString);
  Try
    FileName:=Edit1.Text+'\'+S1+'_'+S2+'.txt';
    if FileExists(FileName) then
    begin
      MyList.LoadFromFile(FileName);
      DBGridEh1.DataSource.DataSet.Edit;
      ClientDataSet1.FieldByName('ITEMS').AsString:=MyList.text;
      DBGridEh1.DataSource.DataSet.Post;
    end;
  finally
  end;
  MyList.Free;
end;

    3、当ClientDataSet数据集循环中，某字段读写磁盘中Txt文件后，就不能对ClientDataSet重新赋值。

procedure TSys_Config_Frm.Button28Click(Sender: TObject);
var S1,S2,S3,FileName:string;
    MyList:TStringList;
    T:boolean;
begin
  MyList:=TStringList.Create;
  with ClientDataSet1 do
  begin
    First;
    While Not Eof do
    begin
      S1:=Trim(FieldByName('主题').AsString);
      S2:=Trim(FieldByName('名称').AsString);
      T:=FieldByName('选择').AsBoolean;
      if Checkbox2.Checked then
      begin
        if T and (S1<>'') and (S2<>'') then
        begin
          FileName:=Edit1.Text+'\'+S1+'_'+S2+'.txt';
          if FileExists(FileName) then
          begin
            MyList.LoadFromFile(FileName);
            Edit;
            FieldByName('ITEMS').AsString:=MyList.text;
            Post;
          end;
        end
      end
      else begin
        if (S1<>'') and (S2<>'') then
        begin
          FileName:=Edit1.Text+'\'+S1+'_'+S2+'.txt';
          if FileExists(FileName) then
          begin
            MyList.LoadFromFile(FileName);
            Edit;
            FieldByName('ITEMS').AsString:=MyList.text;
            Post;
          end;
        end
      end;
      Next;
    end;
    First;
  end;
  MyList.Free;
end;

       经过一个下午的努力。

       如下：数据集循环时，不直接读写磁盘，需是调用另一个对单条数据进行读写的操作。经测试，通过。不再出现类似的问题。

     代码：

procedure TSys_Config_Frm.sButton8Click(Sender: TObject);
begin
  with ClientDataSet1 do
  begin
    First;
    While Not Eof do
    begin
      if FieldByName('选择').AsBoolean then
        Button13Click(Sender);              // 读入一条
      Next;
    end;
    First;
  end;
end;

procedure TSys_Config_Frm.sButton10Click(Sender: TObject);
begin
  with ClientDataSet1 do
  begin
    First;
    While Not Eof do
    begin
      if FieldByName('选择').AsBoolean then
        Button14Click(Sender);             // 写入一条
      Next;
    end;
    First;
  end;
end;

    真正的原理，不得而知。有知道的同仁，告知一下。