歪
歪就歪
Unregistered / Unconfirmed
GUEST, unregistred user!
有什么好办法在StrToInt和StrToFloat前进行检查、确认这
STRING能换成数字？
肯定人人遇到这情况，也肯定不同的人有不同的解决办法。
STRING能换成数字？
肯定人人遇到这情况，也肯定不同的人有不同的解决办法。
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
try
strtoint(...)
except
showmessage('不能转换');
end;
strtoint(...)
except
showmessage('不能转换');
end;
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
w k!
y9y: 赚了那么多钱,也不多出点,就这么点....
y9y: 赚了那么多钱,也不多出点,就这么点....
张
张国龙
Unregistered / Unconfirmed
GUEST, unregistred user!
val()
财主多是守财奴, 此话果然不假
财主多是守财奴, 此话果然不假
A
autumn
Unregistered / Unconfirmed
GUEST, unregistred user!
为何不用
function StrToIntDef(const S: string;
Default: Integer): Integer;
function StrToIntDef(const S: string;
Default: Integer): Integer;
A
avant
Unregistered / Unconfirmed
GUEST, unregistred user!
Y9Y:
给你回信迟了,还请见谅.请查看你的信箱tianhai@hotmail.com.
给你回信迟了,还请见谅.请查看你的信箱tianhai@hotmail.com.
B
banelon
Unregistered / Unconfirmed
GUEST, unregistred user!
本人方法很笨，莫见笑；
转换前逐个字符进行ASCII码值比较...
还是LISTEN为妙：-）
转换前逐个字符进行ASCII码值比较...
还是LISTEN为妙：-）
L
lionet
Unregistered / Unconfirmed
GUEST, unregistred user!
撰寫一個函數.
function CheckChangeToInt(s: string):boolean;
var
i: integer;
begin
result := false;
try
i := strtoint(s)﹔
result := true;
except
Abort;//使用沉默的异常
end;
// try
end;
// func
不知此回答妳是否滿意﹖
function CheckChangeToInt(s: string):boolean;
var
i: integer;
begin
result := false;
try
i := strtoint(s)﹔
result := true;
except
Abort;//使用沉默的异常
end;
// try
end;
// func
不知此回答妳是否滿意﹖
L
LeeChange
Unregistered / Unconfirmed
GUEST, unregistred user!
try
ANum:=StrToInt(AString)
except
ANum:=DefaultNum //你老兄的默认值
end
ANum:=StrToInt(AString)
except
ANum:=DefaultNum //你老兄的默认值
end
堕
堕落·阿修罗
Unregistered / Unconfirmed
GUEST, unregistred user!
用不用啊……自己写个函数？
直接用字幕告诉用户不要乱填就是罗！
不过用个TRY还是很好的办法……
直接用字幕告诉用户不要乱填就是罗！
不过用个TRY还是很好的办法……
歪
歪就歪
Unregistered / Unconfirmed
GUEST, unregistred user!
TO ACKK：
呸，也亏你排了那么头三名了，竟说出这种话来。从来都应该
是根据问题的难度定分，哪儿有根据提问人的财产定分的道理？
TO 张国龙先生：
val()
财主多是守财奴, 此话果然不假
new()
高手竟是一酸丁，还是刚初始化的。
冲你俩在这儿胡说八道，我把这问题留两天再关！啊哈哈哈……
呸，也亏你排了那么头三名了，竟说出这种话来。从来都应该
是根据问题的难度定分，哪儿有根据提问人的财产定分的道理？
TO 张国龙先生：
val()
财主多是守财奴, 此话果然不假
new()
高手竟是一酸丁，还是刚初始化的。
冲你俩在这儿胡说八道，我把这问题留两天再关！啊哈哈哈……
心
心心
Unregistered / Unconfirmed
GUEST, unregistred user!
function StrToDouble(str: string):do
uble;
var
i:do
uble;
code: integer;
begin
val(str, i, code);
if code<>0 then
begin
Application.MessageBox('固定字段，不能删除！', '提示', MB_ICONEXCLAMATION + MB_OK);
result:=0;
end
else
result := i;
end;
试试可以吗？
uble;
var
i:do
uble;
code: integer;
begin
val(str, i, code);
if code<>0 then
begin
Application.MessageBox('固定字段，不能删除！', '提示', MB_ICONEXCLAMATION + MB_OK);
result:=0;
end
else
result := i;
end;
试试可以吗？
B
Boat
Unregistered / Unconfirmed
GUEST, unregistred user!
一个小问题也大有学问！
W
wgzhang
Unregistered / Unconfirmed
GUEST, unregistred user!
StrToInt可以用
function StrToIntDef(const S: string;
Default: Integer): Integer;
但Strtofloat只能用try
function StrToIntDef(const S: string;
Default: Integer): Integer;
但Strtofloat只能用try
3
3h
Unregistered / Unconfirmed
GUEST, unregistred user!
StrToIntDef真是很方便。指定了就不能转换也可返回一个常数。
不过如果要判断的话，我觉得可以这样，取长度作一个循环一个一个测试，
如果每个字符都是在['0'..'9']之间则一定可以转换。
如果是实数则改成['0'..'9','.']以保证小数点。
不过如果要判断的话，我觉得可以这样，取长度作一个循环一个一个测试，
如果每个字符都是在['0'..'9']之间则一定可以转换。
如果是实数则改成['0'..'9','.']以保证小数点。
歪
歪就歪
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。