- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
嗯,我有一个只需要数字的编辑(没有字母,没有符号,只有数字)。问题是我不希望用户将 0 作为第一个数字,例如(0239847)。
我正在考虑创建一个变量“x”-->字节,它将计算编辑的长度并删除第一个数字(如果它是0):
var l:length; number:string100;
begin
l:length(edit1.text);
现在,如果第一个数字是 0 (0239847),则将其删除,但如果没有其他数字(只有 0),则保持原样。
天哪,我终于找到了最简单的方法:
procedure TForm1.Edit1Change(Sender: TObject);
var digit1:string;
begin
digit1:=edit1.Text;
if (digit1='00') or (digit1='01') or (digit1='02') or (digit1='03') or (digit1='04') or
(digit1='05') or (digit1='06') or (digit1='07') or (digit1='08') or (digit1='09') then
edit1.Text:=clear; //or edit1.text:=0; it's the same
end;
end.
仍然可以复制和粘贴数字,但我不介意
这是一个非常愚蠢的问题,因为答案很简单也很明显,但如果你太累了,就很难找到它,我很抱歉让你为此忙碌,安德烈亚斯,感谢你的帮助和提示。
最佳答案
要做好这一点很难。最雄心勃勃的方法是在按键、粘贴等方面执行大量逻辑,就像 this answer 中一样。您会惊讶地发现有多少案件需要处理!
我认为这非常有效:
type
TEdit = class(StdCtrls.TEdit)
...
procedure TEdit.KeyPress(var Key: Char);
function InvalidKey: boolean;
begin
InvalidKey :=
(
(Key = '0') and
(
((SelStart = 0) and (Length(Text) - SelLength <> 0))
or
((SelStart = 1) and (Text[1] = '0'))
)
)
or
(
not (Key in ['0'..'9', #8, ^Z, ^X, ^C, ^V])
)
end;
begin
inherited;
if InvalidKey then
begin
beep;
Key := #0;
end else if (SelStart = 1) and (Text[1] = '0') then
begin
Text := Copy(Text, 2);
end;
end;
procedure TEdit.WMPaste(var Message: TWMPaste);
var
ClipbrdText: string;
function ValidText: boolean;
var
i: Integer;
begin
result := true;
for i := 1 to Length(ClipbrdText) do
if not (ClipbrdText[i] in ['0'..'9']) then
begin
result := false;
break;
end;
end;
function RemoveLeadingZeros(const S: string): string;
var
NumLeadingZeros: integer;
i: Integer;
begin
NumLeadingZeros := 0;
for i := 1 to Length(S) do
if S[i] = '0' then
inc(NumLeadingZeros)
else
break;
result := Copy(S, NumLeadingZeros + 1);
end;
begin
if Clipboard.HasFormat(CF_TEXT) then
begin
ClipbrdText := Clipboard.AsText;
if not ValidText then
begin
beep;
Exit;
end;
if SelStart = 0 then
ClipbrdText := RemoveLeadingZeros(ClipbrdText);
SelText := ClipbrdText;
end
else
inherited;
end;
这看起来很复杂,但所有这些逻辑都是必要的。例如,代码可以很好地处理所有这些情况:
您只能输入数字。
如果SelStart = 0
并且不是每个字符都被选中,则不能输入0
,因为那样你会得到一个前导零。
如果SelStart = 0
并且选择了每个字符,您可以输入0
。因为您应该能够输入这个有效号码。
0
空字符串! 如果 SelStart = 1
且 Text[1] = '0'
[if SelStart = 1
,则 Text[1]
存在,所以我们这里依靠 bool 短路求值],那么你就不能输入0
。
如果编辑字段的内容为 0
并且您在零后添加一个非零字符,则零将被删除(并且不会干扰插入符号位置) .
您只能粘贴数字。如果SelStart = 0
,则丢弃前导零(在剪贴板数据中)。
事实上,为了使行为变得完美,您需要更多代码。例如,假设编辑字段的内容是123000456
。现在,您可以选择前三个字符 (123
),然后按 Backspace 或 Delete 来获取无效文本 000456
。解决方案是添加额外的代码来删除这两个操作中的任何一个所产生的前导零。 更新:我一直在思考,并意识到最好不实现这个(为什么?)。
然而,一个捷径是在未聚焦时“美化”编辑的内容,因为当未聚焦时,您不太可能通过使用编辑内容。
例如,您可以执行类似的操作
function PrettifyNumber(const S: string): string;
var
NumLeadingZeros: integer;
i: Integer;
begin
NumLeadingZeros := 0;
for i := 1 to Length(S) do
if S[i] = '0' then
inc(NumLeadingZeros)
else
break;
result := Copy(S, NumLeadingZeros + 1);
if length(result) = 0 then
result := S;
end;
然后在失去键盘焦点时用其美化版本替换编辑字段的内容。当然,您应该考虑将此功能添加到派生编辑类中,但为了进行测试,您可以简单地使用 OnExit
事件:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Text := PrettifyNumber(Edit1.Text);
end;
我想您希望在主要应用程序(或不那么主要)的大量编辑中使用此功能。因此,您实际上将编写自己的子类化控件。那么我想您还需要其他类型的验证,而不仅仅是删除前导零?因此,您必须将此代码与其余代码很好地集成。如果事实上您将在大型应用程序中的任何地方使用此编辑“子类”,您还可以考虑向编辑控件类添加快捷方式,以便您可以根据需要美化/验证文本,而不仅仅是在退出时(这如果编辑控件单独存在于其窗体上,则特别困难!)
根据要求,这是一个效果不佳的简单解决方案:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = '0') and (Edit1.SelStart = 0) then Key := #0;
end;
我将其作为练习来找出这种方法的问题。如果您在发现问题时一一解决这些问题,您将得到上面我的长代码!
关于delphi - 如何使编辑控件不接受 0 作为第一位数字?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16201121/
我添加了编辑按钮 self.navigationItem.rightBarButtonItem = [[[UIBarButtonItem alloc] initWithBarButto
我试图在运行时“干净地”更改 UIBarButtonItem 文本,以便可以切换编辑/完成模式。然而,每次我在运行时更改 title 属性时,动画看起来都很笨拙。我正在寻找模拟联系人应用程序中“编辑/
这个问题不太可能帮助任何 future 的访问者;它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关,这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用,visit
我想更改 INI 文件中的一些值。不幸的是,我在 2 个不同的部分有键,它们共享相同的名称但需要不同的值。我的代码使用 Get-IniContent函数来自 PsIni . 示例 INI 文件: [P
是否有通知或委托(delegate)方法可用于检测表格 View 何时进入编辑状态? 我想要做的是检测表正在编辑,然后显示一个额外的行,上面写着“添加新项目”或类似的东西。 我尝试在加载 View C
例如,我试图从 svg 读取样式块,我可以获取类型但不能获取字符串。 $svgTemplate = new SimpleXMLElement($_POST['SvgTemplateImport']);
我可以使用 self.navigationItem.leftBarButtonItem = self.editButtonItem; 通过按下导航面板上的编辑按钮让 UITableViewContro
我正在使用markitup!作为 Markdown 编辑器( example )。 目前,我需要按预览按钮(绿色勾号)来显示预览面板。 我希望自动显示预览 - 我怎样才能实现这一点? 最佳答案 我没有
我的处境非常糟糕。我丢失了源代码,客户需要在应用程序中进行一些更改。想想一个编辑程序集的例子:Test.dll,然后添加代码行,最后重新编译它 所以我的问题是: -可以这样做吗? -如果可能的话,什么
我使用了一些 JavaScript 来通过按钮更改段落元素的内容。它工作正常,但我还想让按钮控制标题和附图。给我指明正确的方向吗? 这是我用来更改段落的代码 .... 谢谢! 最佳答案 尝试将 Ja
是否有任何 Emacs lisp 插件可以让我轻松地在 yaml 文件中编辑或输入数据。 例如: --- sample yaml file ---Name : Addr :City :State:Zi
新手Java问题,我确定已经解决了,但是在任何地方都找不到解决方案:( 我想使用这里包含的java程序http://sourceforge.net/projects/ant-tibco/files/
在我的网页中,我使用了 gridview。在这个 GridView 中,它显示了一组用户信息。我刚刚从智能标签菜单中添加了一个按钮。我的要求是当我点击每个用户对应的按钮时,它会重定向到另一个页面并显示
我想在没有任何框架的情况下直接在 JS 中编辑一个 SVG 文件。 基本上我有一个 SVG 主文件,其中应该包含一些子 SVG。 我已经在 Ajax 中检索了这些子项的内容,但我想将它们插入到 SVG
我有我的 ViewModel,我有我的 Controller 可以从 ViewModel 正确显示,但是我不确定如何使 ViewModel 可编辑,以便将编辑后的数据发送回模型。我只想编辑 Order
我不确定我的做法是否正确。 IplImage *dog_1 = cvCreateImage(cvGetSize(oriImg), oriImg->depth, oriImg->nChannels);
我有一个创建二维码的网络服务器。在此过程中,我得到一个 BarcodeQRCode 对象,我可以从中获取图像 (.getImage())。 我不确定如何将这张图片发回给客户。我不想将它保存在文件中,而
已编辑:我的第一个问题解决了,但又出现了另一个问题,只提供了一个用户 ID。这是修改后的代码的屏幕截图。 回到表格,用户将按下编辑按钮,这样他就可以编辑问题并给出适当的操作.. 我的上表代码是这样的:
据我了解,我无法通过重新启动服务器来清除 MySQL 查询缓存。 每次运行 sql 时,我都试图获得与第一个代码块类似的结果 1-这是在重新启动 Apache 和 MySQL 之前(第一次使用这些查询
我正在创建一个页面来搜索项目,然后能够编辑/更新它。当它只返回一个结果时我能够做到这一点,但当它给我多个结果时我只能编辑最后一项。下面是我的代码: ....... $dj =$_POST[djnum]
我是一名优秀的程序员,十分优秀!