delphi怎样写这样的公式(100分)

Z

zylsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #1

Excel中有一个公式 =LEFT(TEXT(ABS(((SIN(A1)+0.1)*50000)),"######&quot,4)
在delphi中怎么写？
A1用edit1.txt 代替
怎样让label.caption等于这个公式

急等....

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #2

TEXT 用 FLOATTOSTR替换好了，注意引用sysutil,maths等单元

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #3

floattostr(ABS(((SIN(strtofloat(edit1.text))+0.1)*50000)),"######&quot

 

Z

zylsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #4

to:duhai_lee
label3.caption:=floattostr(ABS(((SIN(strtofloat(edit1.text))+0.1)*50000)),'######');
报错误：
[Error] Unit1.pas(49): There is no overloaded version of 'FloatToStr' that can be called with these arguments
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

Z

zylsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #5

to：foxphone2003
引用sysutil,maths
报：
[Fatal Error] Unit1.pas(7): File not found: 'sysutil.dcu'

[Fatal Error] Unit1.pas(7): File not found: 'maths.dcu'

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #6

floattostr只有一个参数,想要'########',就用formatstring

 

Z

zylsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #7

可以了 多谢2位

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #8

label3.caption:=floattostr(ABS(((SIN(strtofloat(edit1.text))+0.1)*50000)));

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #9

label1.caption:=format('%6.0f',[abs((sin(strtofloat(edit1.text))+0.1)*5000)]);