十万个为什么之第一问: (问不惊人，死不休)(25分)

W

_wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #1

edit4.Text := edit1.Text * (adoquery1.fieldbyname('danjia').AsFloat) *
(1 +(adoquery1.fieldbyname('zhekou').AsFloat))

adoquery1.fieldbyname('danjia').AsFloat 这句是什么意思

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

将表里danjia字段作为float类型

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

有语法错误把

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

居然能够编译成功，怕是在吹牛吧，谁写的，牛人呀！

 

E

ego

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

faint,这就是问不惊人死不休？

 

四

四库全书

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #6

adoquery1.fieldbyname('danjia').AsFloat 取得表中ｄａｎｊｉａ字段的值，并转化为浮淀型
edit4.Text := edit1.Text * (adoquery1.fieldbyname('danjia').AsFloat) *
(1 +(adoquery1.fieldbyname('zhekou').AsFloat))
这句话有语法错误，ｐａｓｃａｌ对语法检测很严格，应该为
edit4.Text := Floattostr(strtofloat(edit1.Text) * (adoquery1.fieldbyname('danjia').AsFloat) *
(1 +(adoquery1.fieldbyname('zhekou').AsFloat)))

 

W

_wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #7

procedure Tkfba5.Edit1Exit(Sender: TObject);
begin
edit4.Text := floatTostr( (strTofloat(edit1.Text) * (adoquery1.fieldbyname('danjia').AsFloat)) );
//* (1 +(adoquery1.fieldbyname('zhekou').AsFloat))
end;
语法我还是有足够的了解D。这是我简写后的格式，
”四库全书“我踩用了你回的代码依然有问题。 错误信息：
access vialation at addess 0987f097 in the module. 'coreide60.bpl' read of addess

 

L

lxn2philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #8

access vialation at addess 0987f097 in the module. 'coreide60.bpl' read of addess

这是你的Delphi有问题

换一个别的delphi装装看

有些盗版的Delphi不一定很好用的

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #9

果然历害,这也能编译通过

够牛!!!!!!!!!

 

月

月河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #10

哈........

 

W

_wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-10

• #11

多人接受答案了。