我在使用Locate 方法重复查找TADOTable 时遇到问题。以下代码第一次执行没有问题，但后续执行会抛出Stack Overflow异常。
procedure TForm14.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
if not ADOTable1.Locate('Num-permis', Edit1.Text, []) then
ShowMessage(' Try it with another number, the figure does not exist');
end;
我该如何解决这个问题？
【问题讨论】：
标签： delphi stack-overflow delphi-xe7
您需要停止每次打开表，或者每次都开始关闭它。第一个是我的偏好：
procedure TForm14.Button1Click(Sender: TObject);
begin
if not ADOTable.Active then
ADOTable1.Open;
if not ADOTable1.Locate('Num-permis', edit1.Text, []) then
ShowMessage(' Try it with another number, the figure does not exist');
end;
【讨论】：
TDataSet.SetActive，由Open 调用在内部触发，对if Active <> Value then 有保护，实际上您只需将Active 放在外面检查（您这样做if not Active then SetActive(True)，然后在内部检查if Active <> True then PerformOpen）。我知道你说的是对的，只是在代码中找不到原因。