Delphi DBgrid 在错误更新时撤消更改

Question

我在我的代码中验证了我的数据源的数据更改的编辑值：

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
sIDin :string;
Continue                :boolean;
begin
    Continue := True;
    if (Table1.RecordCount <> 0 )and (Field <> Nil) then
    begin
        //////////
        if (Field.Text = '') then //(1)
        begin
             Application.MessageBox('is Empty!','',MB_OK + MB_ICONWARNING);
             Continue := false;
        end
        else if (Field.FieldName <> 'GaName') and  (Field.FieldName <> 'MnName' )then
        begin
             sIDin := '[=11=]' + Field.Text;
             if not TryStrToInt64(sIDin) then
             begin
                  Application.MessageBox('Not Hexadecimal!', '',MB_OK + MB_ICONWARNING);
                  Continue := false;
                  //Field.Text := ''; // here i need to set  my filed empty not with wrong value. 
                  // So i use this line .. 
                  // but it generate an error (1)
             end;
        end;
        if Not(Continue) then
            abort
    end;
    inherited ;

end;

在这种情况下，我需要在输入未验证数据时撤消更改：

if not TryStrToInt64(sIDin) then
begin
      Application.MessageBox('Not Hexadecimal!', '',MB_OK + MB_ICONWARNING);
      Continue := false;
end;

示例，当我输入非十六进制值 ('NONEHexa') 时，我需要从我的数据集中忽略该值。我尝试将我的字段设置为空 Field.Text := '' 但是当我的字段为空时它会产生其他错误。

我该怎么做？

============ 更新 1

我的函数 TryStrToInt64：

    function TryStrToInt64(InputString : string) : boolean ;
    var
    iValue64          :Int64;
    begin
            try
                    iValue64 := StrToInt64(InputString);
            Except
                    on E : EConvertError  do
                    begin
                            Result:= false;
                            exit;
                    end;
            end;
            Result:=true;
    end;

Answer 1

与其尝试将您的字段值转换为整数，您可以测试它的每个字符在十六进制字符串中是否有效，像这样：

function ValidHex(Input : String) : Boolean;
var
  i : Integer;
begin
  Result := False;
  //  If Input is empty, it can't be valid Hex
  if Input = '' then exit;

  //  Valid Hex must have an even number of characters
  if Odd(Length(Input)) then exit;

  for i := 1 to Length(Input) do
    if not (CharInSet(Input[i], ['0'..'9', 'A'..'F', 'a'..'f'])) then
      exit;
  Result := True;
end;

当然，你也可以使用HexToBin库函数将Hex字符串转换为二进制值，并检查字符串中的字符是否在这个过程中被消耗。

关于您的代码的三件事：

与其尝试在数据源的 OnDataChange 事件中进行验证，不如在字段的 OnValidate 事件，提供它就是为了进行这种验证。有关详细信息，请参阅联机帮助。
您可以使用字段的 EditMask 属性来限制可以输入的字符再次，请参阅 OLH。不过，我认为您不能使用 EditMask 将输入限制为十六进制字符。
您最好避免使用 Continue 作为变量。它对编译器有特殊意义，与 for 循环的执行有关。再次，请参阅 OLH

更新：

I try, but i can see how to ensure the validation with TField OnValidate.. can you give an example!.. other question : When i use the OnValidate for field, it is possible to UNDO update on some field IF it's false? Example : when i enter a Non hexadecimal value, my field should rollback and not accept this value.. In my case, I can get this error on DataChange event. But before that when i click on other row, the wrong value seem be saved on my database!

保存了错误的值，因为当您单击另一个网格行时，当前行有未保存的更改，该更改会自动保存 - 这是 Delphi 数据集的标准行为。

如果要将字段值恢复为用户更改之前的值，最简单的方法是使用数据源的 OnDataChange 事件而不是字段的 OnValidate。在下面调用 Field.DataSet.Cancel 将恢复字段的值：

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if Field = Nil then Exit;
  // First, check that the Field is the one we're interested in
  if Field = Field.DataSet.FieldByName('Value') then begin
    if not ValidHex(Field.AsString) then begin
      ShowMessageFmt('Invalid value: %s for field: %s', [Field.AsString, Field.FieldName]);
      Field.DataSet.Cancel;
    end;
  end;
end;

但是请注意，这会将任何其他未保存的更改还原到同一行。为了能够仅恢复对 "hex" 字段的更改会复杂得多 - 我认为您必须将其他更改的值保存在某个地方并在调用 Cancel 后恢复它们。

Delphi DBgrid 在错误更新时撤消更改

Delphi DBgrid undo change on error update

delphi

datasource