现在从数据库取几个值然后相加赋值给label,要怎么进行格式转换? 取出来的值例如是:str1,str2,str3
label.caption:=
label.caption:=
解决方案 »
- 怎样根据网络上的时间来校正自己电脑的时间
- 如何通过程序开启系统的message服务!
- 菜鸟求救?????reportmachine如何在intraweb5.0.43做报表,还有个如和装intraweb7.0.19 在哪下?
- 如何在用PrintDBGridEh1打印DBGrideh1的时候能在打印的最后加上系统的日期!
- 数据库还原(SQL Server2000)
- 怎么样让edit1框显示的时候只是一条底线?
- 关于动态创建计算字段落!200分进者有分
- 帮忙?
- 關於Delphi連接數據庫建立動態菜單的問題
- delphi6.0是終結版,你知道嗎?
- 求ICS-SSL 安装方法 ,高手来指点
- Crc算法 ssp delphi 算法
inttistr(str):整数转化
+:组合字符串
inttistr(str)
s := '';
if QryData.FieldByName('CON_VALUE1').DataType = ftFloat then
s := s + FloatToStr(QryData.FieldByName('CON_VALUE1').AsFloat)
else
s := s + FloatToStr(QryData.FieldByName('CON_VALUE1').AsInteger); if QryData.Fields[0].DataType = ftFloat then
s := s + FloatToStr(QryData.Fields[0].AsFloat)
else
s := s + FloatToStr(QryData.Fields[0].AsInteger);
label.caption:= s;其实也可以别管他什么数据类型,全部来个QryData.FieldByName('CON_VALUE1').AsString、QryData.Fields[0].AsString
貌似不行吧··从数据库取出来的都是字符型的···QryData.FieldByName('CON_VALUE1').asstring都是这样的···我有解决办法了···从select里把值都给转字符型的··然后取出来的值全部strtofloat然后相加··然后再floattostr