procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char); //控制edit1的输入数字
var
p:Integer;
begin
//限制只能输入数字,小数点,负号
if not (Key in ['0'..'9', '.','-',#8, #13]) then
begin
Key := #0;
end;
//如果是小数,小数点前面只能输入一个零
if key = '0' then
begin
if (LeftStr(Edit1.Text,1) ='-') and (MidStr(Edit1.Text,2,1) = '0') and (Length(Edit1.Text) = 2) then
begin
Key:=#0;
end
//如果第一位是零,则零只能输入一次
else if (LeftStr(Edit1.Text,1) = '0') and (Length(Edit1.Text) = 1) then
begin
Key:=#0;
end
end
//限制只能输入一个小数点,且只能在第二个位置开始
else if Key = '.' then
begin
if Edit1.SelStart = 0 then
Key := #0;
p := Pos('.', Edit1.Text);
if p > 0 then
Key := #0;
end
//限制只能在第一个,且只能输入一个负号
else if Key = '-' then
begin
if Edit1.SelStart > 0 then
Key := #0;
p := Pos('-', Edit1.Text);
if p > 0 then Key := #0;
end;
end;
var
p:Integer;
begin
//限制只能输入数字,小数点,负号
if not (Key in ['0'..'9', '.','-',#8, #13]) then
begin
Key := #0;
end;
//如果是小数,小数点前面只能输入一个零
if key = '0' then
begin
if (LeftStr(Edit1.Text,1) ='-') and (MidStr(Edit1.Text,2,1) = '0') and (Length(Edit1.Text) = 2) then
begin
Key:=#0;
end
//如果第一位是零,则零只能输入一次
else if (LeftStr(Edit1.Text,1) = '0') and (Length(Edit1.Text) = 1) then
begin
Key:=#0;
end
end
//限制只能输入一个小数点,且只能在第二个位置开始
else if Key = '.' then
begin
if Edit1.SelStart = 0 then
Key := #0;
p := Pos('.', Edit1.Text);
if p > 0 then
Key := #0;
end
//限制只能在第一个,且只能输入一个负号
else if Key = '-' then
begin
if Edit1.SelStart > 0 then
Key := #0;
p := Pos('-', Edit1.Text);
if p > 0 then Key := #0;
end;
end;