to lvxq :棘手的类型转换 (10分)

M

MatchesGirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #1

很抱歉,应更正为由variant 转化为double

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #2

不用转，直接用

 

M

MatchesGirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #3

很抱歉,应更正为由variant 转化为double

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-04

• #4

简单
var
aa:variant;
dblVal:double;
flag:Integer;
....
aa:='34567.01';
Val(aa,dblVal,flag);
if flag<>0 then
ShowMessage('Error')
else
ShowMessage(floatToStr(dblVal));

 

M

MatchesGirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-05

• #5

多人接受答案了。