摘要:
procedure TfrmsysWorkManage.DBTreeCreateNode(Sender: TObject; Node: TdxOcNode); begin inherited; with Node,WorkCDS do begin Node.ChildAlign := GetNode 阅读全文
摘要:
if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字,否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文