estackoverflow with message 'stack overflow'

在操作数据库中使用 FClientDataSet 的 FieldsChange 来触发某件事代码如下：

procedure FieldsChange(Sender: TField);
begin
  TField(Sender).Value := FClientDataSet.Fields.FieldByName('ID').Value + TField(Sender).Value;
end;

 

程序来执行的时候报

estackoverflow with message 'stack overflow'

错误，堆栈溢出。

是陷入重复循环。

修改代码如下

 

procedure TDBOperator.PW_FieldsChange(Sender: TField);
begin
  TField(Sender).OnChange := nil;
  with FClientDataSet do
  begin
    Edit;
    TField(Sender).Value := Fields.FieldByName('ID').Value + TField(Sender).Value;
  end;
  TField(Sender).OnChange := PW_FieldsChange;
  FieldChange(Sender);
end;

 

 

先关掉，做某事，手工触发一下，再加上触发事件。OK