各位大哥帮忙

Question

我使用edit输入给数据库里的currency变量,怎样将它的类型进行转换啊?
datamodule1.Table2.FieldByName('Basepay').AsCurrency:=
后面怎么写啊???急.....

Answer 1

try
  datamodule1.Table2.FieldByName('Basepay').AsString:=Edit.Text;
except
end;

Answer 2

程序员大本营是一个文明 学习的地方
怎么能随便骂人呢关于上面的问题我想是不是使用一个函数使edit1.text转换为currency类型的变量
然后再向数据库写入
但是这个函数我现在不知道
等我找到我在发上来

Answer 3

datamodule1.Table2.FieldByName('Basepay').AsFloat:=StrToFloat(Edit1.text)

Answer 4

谢谢各位了
应该是
datamodule1.Table2.FieldByName('Basepay').Ascurrency:=StrTocurr(Edit1.text)

Answer 5

datamodule1.Table2.FieldByName('Basepay').AsFloat:=StrToFloat(Edit1.text)
这个应该是可以的吧。