小數點問題

Question

procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#13,#8]) then  key:=#0;
if (key = '.') and (Pos('.', edit1.text) > 0) then   key:= #0;
end;
并不能控制 122.112.3 等類似問題

Answer 1

你的方法調試通過呀！（D5 + Win2k Prof ）

Answer 2

可是照你那样写的话，第二个小数点输入的位置也是大于0的，你把这个语句换一下位置试试：
if (pos('.',edit1.Text )>0)and (key='.') then key:=#0;