向
向你学习
Unregistered / Unconfirmed
GUEST, unregistred user!
是这样的,谁能写一个判断输入钱的程序,如edit,
条件必须是数字,取小数点后两位,不能有多个小数点,小弟把分都给了
条件必须是数字,取小数点后两位,不能有多个小数点,小弟把分都给了
R
RedBeret
Unregistered / Unconfirmed
GUEST, unregistred user!
用maskedit就行了
Z
zh_2001
Unregistered / Unconfirmed
GUEST, unregistred user!
>>判断输入钱的程序，条件不能为别的
什么意思？说清楚点
什么意思？说清楚点
F
forss
Unregistered / Unconfirmed
GUEST, unregistred user!
限制输入数字和小数点的就不要说了吧，
只能有一个小数点的：
try
strtofloat(edit1.text);
except
on E: exception do
edit1.text:='';
end;
只能有一个小数点的：
try
strtofloat(edit1.text);
except
on E: exception do
edit1.text:='';
end;
A
antic_ant
Unregistered / Unconfirmed
GUEST, unregistred user!
var
sfje_str:string;
sfje:real;
begin
sfje_str:=formatfloat('0.00',sfje);
end;
sfje_str:string;
sfje:real;
begin
sfje_str:=formatfloat('0.00',sfje);
end;
R
rookie_ron
Unregistered / Unconfirmed
GUEST, unregistred user!
在edit的keypress事件中加入：
begin
if not (key in['0'..'9', '.', #8, #27, #13]) then
key := #0;//只能为数字
if (Pos('.', edit.Text) > 0) and (key = '.')then
key := #0;//只能有一个小数点
if (Pos('0', edit.Text) = 1) and (key = '0') and (edit.SelStart = 1) then
key := #0;//当第一位为0时第二位不能输入0
end;
begin
if not (key in['0'..'9', '.', #8, #27, #13]) then
key := #0;//只能为数字
if (Pos('.', edit.Text) > 0) and (key = '.')then
key := #0;//只能有一个小数点
if (Pos('0', edit.Text) = 1) and (key = '0') and (edit.SelStart = 1) then
key := #0;//当第一位为0时第二位不能输入0
end;
W
westboy2000
Unregistered / Unconfirmed
GUEST, unregistred user!
在BeforePost事件中处理
var JE
ouble; //金额
begin
JE:=StrToFloat(FormatFloat('0.00',JE));
end;
var JE
ouble; //金额begin
JE:=StrToFloat(FormatFloat('0.00',JE));
end;
向
向你学习
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。