我想在 TField.OnChange Event 中檢查用戶輸入的數值合法與否, 若不合法則把值還原, 其中遇到了一些問題。    首先, 我本來很直覺地覺得使用 TField.OnValidate 去做檢查, Validate 嘛, 字面解釋就是做這項工作的, 可是發覺 Event 當中的 OldValue 不能取得原本的舊值, 但在 OnChange Event 中卻可以, 於是改用了 OnChange Event, 測試程式碼如下:

procedure TForm1.ClientDataSet1mytextChange(Sender: TField);
begin
  if ClientDataSet1MyText.NewValue = '123' then
    ClientDataSet1MyText.AsString := ClientDataSet1MyText.OldValue;
end;

上面假設 '123' 是非法字串, 結果運作得很好; 可是, 觸發 TField.OnChange 的, 不光是用戶把 Input Focus 轉到下一個 Field, 也可能是直接跳到另一個 Record, 為了防止這種情況, 程式加一個 Slient Exception:

procedure TForm1.ClientDataSet1mytextChange(Sender: TField);
begin
  if ClientDataSet1MyText.NewValue = '123' then
  begin
    ClientDataSet1MyText.AsString := ClientDataSet1MyText.OldValue;
    Abort;
  end;
end;

結果是, Assign 舊值的那句失效了, 很奇怪, 會不會是 Delphi (我用 D7) 的 Bug 的, 有甚麼解決辦法呢? 謝謝. -- 小卜子

------
--
小卜子

我找到答案了, 回饋一下。

procedure TForm1.ClientDataSet1mytextChange(Sender: TField);
begin
  ClientDataSet1.DisableControls;
  try
    if ClientDataSet1MyText.NewValue = '123' then
    begin
      ClientDataSet1MyText.AsString := ClientDataSet1MyText.OldValue;
      Abort;
    end;
  finally
    ClientDataSet1.EnableControls;
  end;
end;

若有更好的方法, 歡迎提供。 -- 小卜子

------
--
小卜子

我會在TField.OnValidate真接用 raise Exception.Create('輸入資料有問題...'); 這樣子輸入的值會還原，而且游標也會停在原本的Field上！ 參考看看吧！ Ian

重覆了....刪之。 發表人 - diviner 於 2004/09/20 11:01:01

------
--
小卜子

引言: 我會在TField.OnValidate真接用 raise Exception.Create('輸入資料有問題...'); 這樣子輸入的值會還原，而且游標也會停在原本的Field上！ 參考看看吧！ Ian

早試過了, 輸入值沒有被還原, 除非 User 自己按 Escape, 你的會還原嗎, 那倒奇怪了。 -- 小卜子

我確實都是這樣用的！不知為什麼你會不行？ 可以說明一下你的程式碼嗎？ Ian 發表人 - l630521 於 2004/09/20 10:59:31

整個程式很乾淨, 因為只作測試用; 就放一個 DBGrid 加上下面這段 Code:

procedure TDataModule1.ClientDataSet1MytextValidate(Sender: TField);
begin
  if ClientDataSet1MyText.NewValue = '123' then
    Abort;
end;

-- 小卜子

------
--
小卜子

對不起！我查了一下，我之前可以是因為我的物件是用DBLookupComboBox， 用其他物件真的不會恢復原值，只能用您提供的方法， 可是還是會有一個問題，那就是永遠只能回復最原始的值，而無法原復上一次的值！ 有空再來找看看還有沒有其他方法！ Ian