|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!
1.一切的Edit都只允?S??进?底郑?即只能够??进一次小?迭c
2.不想?Χ噙_?资???的Edit都??onKeyPress事务
那你就??一??,别的的全体在ObjectInspector中指向?@一??:
procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char);
var
IntCompIdx:Integer;
stText:string;
begin
if(Ord(Key)=46)then
begin
IntCompIdx:=(SenderasTEdit).ComponentIndex;
stText:=TEdit(Components[IntCompIdx]).Text;
ifPos(.,stText)>1then
Key:=#0;
end;
end;
假如不?X得?y看的??也能够不必??量:
if(Ord(Key)=46)and
(Pos(.,TEdit(Components[(SenderasTEdit).ComponentIndex]).Text)>1)then
Key:=#0;
</p>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|