在edit中，怎么控制只能输入数字及小数点，并且小数点不能在最前面以及最后面！

[lss983]

我以编下列代码，但不能控制小数点在最前面以及最后面！
if key=#13 then //回车进入下一个输入框
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
if not (((key>'0') and (key<'9')) or (key='.')) then
//只能输入数字以及小数点
begin
key := #0;
messagebeep(0);
end
else
if (pos('.', edit10.text) <> 0) then
if key='.' then
begin
key := #0;
messagebeep(0);
end;

[Clus]

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var S:String;
begin
S:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);
if Key=13 then
if (Pos('.',Edit1.Text)=Length(Edit1.Text)) or (Pos('.',Edit1.Text)=1) then
begin
Edit1.Text:=S;
Edit1.SelStart:=Length(Edit1.Text);
messagebeep(0);
Exit;
end;
if (Key<>110) and (Key<>190) and ((Key<ord('0')) or (Key>ord('9'))) then
begin
Edit1.Text:=S;
Edit1.SelStart:=Length(Edit1.Text);
end;
end;

[delphi_user]

同意楼上,不过这样只能在输入回车的时候才能判断。

[wuyh78]

换用控件TMaskEdit试试，你利用其EditMask属性，你自己定义其规则即可！不妨试试？？

[lanren]

TmaskEdit

[lss983]

由于程序的特殊原因，不能用TMskedit 。

[xzm2000]

在edit的exit事件中判断
ss := copy(edit1.text, 1, 1);
se := copy(edit1.text, length(edit1.text), 1);
if ss = '.' or se = '.' then
showmessage('首尾出现小数点，请重输');