让编辑框中只允许浮点数的存在 (2001年2月6日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 27 行

让编辑框中只允许浮点数的存在 (2001年2月6日) 

网友更新  分类:杂类   作者: zanpen2000(推荐)  推荐:zanpen2000   阅读次数:460  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
我们在编程的过程中,经常要限制用户的输入,比如数学计算等,就不能允许Edit框中有字符存在,在下面的例子中,当用户点击Button1(计算)按扭时,先判断编辑框中是否有字符存在,然后再执行相应的操作.也不知道这算不算技巧,但希望对像我一样的初学者有所帮助.([e-mail])

procedure TForm1.Button1Click(Sender: TObject);
const myNum = ['0'..'9','.'];
msgHaveNum='There have some numerics';
msgNoNum='There have not Numeric';
var
i:integer;
s:string;
begin
s:=edit1.text;
for i:=1 to length(s) do begin
if not (s[i] in mynum) then begin
showmessage(MsgNoNum);
exit;
end;
end;
showmessage(msgHaveNum);
end;