當字段有EditMask時如何允許空的TDBEdit？

Question

我已經將這個TEditMask：

DateTimeField.EditMask := '!99/99/9999;1; '; 

我有鏈接到這個領域的TDBEdit。

該掩碼適用於有效日期，但當用戶嘗試清除輸入值（使用DEL鍵）時，離開該掩碼時將導致EConvertError。

如何更改此行爲來清除字段值？

Answer 1

我發現使用OnSetText事件領域的解決方案：

procedure TForm1.DateTimeFieldSetText(Field: TField; const Text: string); 
begin 
    // This only works for locales where the date separator is '.' 
    if Text = ' . . ' then 
    Field.AsString := '' 
    else 
    Field.AsString := Text 
end; 

Answer 2

您可以測試在基礎數據字段的OnSetText事件處理程序對一個空濛版編輯文本，並設置字段值只有在沒有匹配的情況下。

procedure TForm1.DataTimeFieldSetText(Sender: TField; const Text: string); 
begin 
    if not (maskutils.FormatMaskText(Sender.EditMask, '') = Text) then 
    Sender.AsString := Text; 
end; 

您不必知道編輯掩碼或特定區域設置信息。