delphi - 检查编辑框是否使用这种格式

Question

我想检查并查看 TEdit.text 是否采用这种格式 123/45/678 输入文本时因此###/##/###

有什么简单的方法吗？谢谢

Answer 1

Function CheckStringWithMask(const Str,Mask:String):Boolean;
var
 i:Integer;
begin
  Result := true;
  if length(str)=length(Mask) then
    begin
    i := 0;
    While Result and  (I < Length(Str)) do
      begin
      inc(i);
      Result := Result and (Str[i] <> '#')
                and ((Mask[i] ='#') and (CharInSet(Str[i],['0'..'9']))
                or (Str[i]=Mask[i]));
      end;
    end
  else Result := false;
end;