一个就在于edit的简单的问题，新手求教

Question

如何在edit中限定输入格式(0.00)，即只能在其中输入带两位小数的数。谢谢
其他的搞定，只是这格式(0.00)不知怎么搞。

Answer 1

就是因为当初没有用这个maskedit，现在改用maskedit会影响到我好多的数据，好麻烦，所以在这里请教一下有没有其他的办法。谢谢你

Answer 2

可以自己写代码，用格式化函数,可以写在焦点离开edit
var

Answer 3

可以自己写代码，用格式化函数,可以写在焦点离开edit的事件exit中
var
s:float;
begin
s:=formatfloat('0.00',edit.text);
edit.text:=FloatToStr(s);
end;

Answer 4

在OnKeyPress事件里写代码就可以了

Answer 5

有了， lovend(颓废之吻) 的要改一下
var
  s:real;begin
  s:=strtofloat(edit1.Text);
  edit1.text:=formatfloat('0.00',s);
end;

Answer 6

我觉得上面的解法不好，那样如果有不是要求格式的输入，就会发生异常，即使截取异常进行处理，也不好看，和MaskEdit差的太多，我的解法是：
首先在FormCreate中初始化Edit1的属性为Text:='0.00'，设置SelLength

Answer 7

为1，SelStart为0，然后在OnKeyPress中写代码，源代码如下：
这是Pas文件，窗体文件没有发——也不能发
上面只有一个TEdit，名字是Edit1，和一个TMemo，名字是Memo1，做的和MaskEdit差不多
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  //对Edit1进行初始化设置
  Edit1.Text:='0.00';
  Edit1.SelStart:=0;
  Edit1.SelLength:=1;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //如果小数点前面有光标,那么移到小数点后面
  if (Sender as TEdit).SelStart=1 then
    (Sender as TEdit).SelStart:=2;
  //如果到了要求的格式后面,那么回来
  if (Sender as TEdit).SelStart=4 then
    (Sender as TEdit).SelStart:=3;
  //保证随时都是输入一个
  (Sender as TEdit).SelLength:=1;
  //如果输入的是数字,那么一切照常,否则认为没有输入
  if (Ord(Key)<Ord('0')) or (Ord(Key)>Ord('9')) then
    Key:=#0;
end;end.

Answer 8

procedure TForm1.EdtEnterJeKeyPress(Sender: TObject; var Key: Char);
var
  S: string;
begin
  S := EdtEnterJe.Text + Key;
  IntPos := LastDelimiter('\.',S);
  if (Length(Copy(S,IntPos + 1,Length(S))) > 2) AND (IntPos <> 0) then
  begin
    //不输入该字符
    key := #0;
    Exit;
  end;
end;

Answer 9

上面少定义了：
var
  IntPos: Integer;