验证 – Delphi设置编辑掩码,没有固定长度的字符

Validation using the EditMask property is performed on a character-by-character basis.

所以你只能使用固定宽度的面具.这意味着您必须指定小数点的位置,以及要接受的前导和尾随数字的数量.

请考虑使用TValueListEditor.OnValidate事件：

Occurs when focus shifts away from a cell in the value list editor.

Write an OnValidate event handler to validate any edits the user enters in a cell before focus leaves it. OnValidate gives applications an opportunity to provide more validation than the EditMask property of the corresponding TItemProp object can supply.

OnValidate only occurs if the user edited the value of the cell that is about to lose focus. The OnValidate event handler can verify the value the user supplied,and if it is not acceptable,raise an exception.

例如：

uses
  SysConsts;

procedure TMyForm.lstValParamValuesValidate(Sender: TObject; ACol,ARow: Integer; const KeyName: String; const KeyValue: String);
var
  ValueType: string;
  sIgnored: Single;
  dIgnored: Double;
begin
  if KeyValue = '' then Exit;

  ValueType := parser.sParams.Values[KeyName];

  if ValueType = 'int' then
    StrToInt(KeyValue)

  else if ValueType = 'float' then
  begin
    if not TryStrToFloat(KeyValue,sIgnored) then
      raise EConvertError.CreateFmt(SInvalidFloat,[KeyValue]);
  end

  else if ValueType = 'double' then
  begin
    if not TryStrToFloat(KeyValue,dIgnored) then
      raise EConvertError.CreateFmt(SInvalidFloat,[KeyValue]);
  end

  // etc...
end;