请问如何将STR数据转化成REAL数据？(45分)

没

没脑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #1

谢谢帮忙！我知道可以通过自己定义函数实现，但是请教如何编写此函数！谢谢极了！

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #2

val
strtofloat

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #3

strtofloat

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #4

推荐:val
例:
var
Code: Integer;
f:single;
begin
Val(Edit1.Text, f, Code);
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
end;