暴简单！系列之七：如何限制Edit中输入的只能是0－9和a－f？在OnChang中，并且超过16个字字符就不许输入了

[com235]

暴简单！系列之七：如何限制Edit中输入的只能是0－9和a－f？在OnChang中，并且超过16个字字符就不许输入了。

谢谢指教。

[gfh_79_0]

1、判断。
2、Edit->MaxLength=16;

[woainihaha]

1:

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
AnsiString FFilter="0123456789abcdef";
if (Key!='\b')
{

bool iton=false;
for (int i=1;i<=FFilter.Length();++i)
{
if (Key==FFilter[i])
{
iton=true;
break;
}

}//End for

if (iton==false)
{
if (Key!=13) Key=0;
}

//return;


}
}

2:
Edit->MaxLength=16;

[starstargao]

楼主说要在onchange里面实现呀

[meCAD]

在OnKeyPress中
if (Key != VK_BACK && (Key < '0' || Key > '9')&& Key != '-'&& Key != 'a' &&... &&...) //自个慢慢输入.
Key = 0;

至于只允许16个字的话就最简单的.在一次的OnKeyPress前判断一下是否已经 == 16了.
if (是) Key = 0;

[zxcdewq]

暴简单！???
那还问？

[linx2]

maskedit
不二选择！！！

[linx2]

MaskEdit控件是有“##”标志的那个～～～

在编辑器左上角的Input Masks(输入屏蔽）中制作需要的输入格式，Character for blanks指定MaskEdit中用什么替换空格，TestInput检查当前格式。
如：在字符L后面只能输入字母字符，即英文A-Z,和a-z;0后面只能输入0－9。等等。
具体可以参照MaskEdit控件的帮助，应该写的比较详细吧。

[xc2927]

看看

[lanyahu]

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
if (Key != VK_BACK && (Key < '0' || Key > '9')) Key = 0;

}
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if(Edit2->Text.Length()>16)
ShowMessage("Ok");
}
已调试成功！