delphi 数据库提取浮点型数据的问题

wuaizhonghua 2008-06-08 08:04:58
我的数据库中的数据是单精度固定小数点后三位小数的 但是我提取出来转换成文本格式的时候，在txt文件里面 小数点后面就是11位了请问这个问题如何解决 我的程序如下 请指点一下
procedure TForm2.Button3Click(Sender: TObject);
var
strlist1:tstringlist;
str:string;
i:integer;
begin
str:='';
with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select * from ygprint where 井号='''+edit2.text+''' order by 归位深度 asc');
open;
(adoquery2.FieldByName('油质发光面积') as TFloatField).displayFormat := '0.000';
(adoquery2.FieldByName('油质荧光亮度') as TFloatField).displayFormat := '0.00';
(adoquery2.FieldByName('胶质发光面积') as TFloatField).displayFormat := '0.000';
(adoquery2.FieldByName('胶质荧光亮度') as TFloatField).displayFormat := '0.00';
(adoquery2.FieldByName('沥青质发光面积') as TFloatField).displayFormat := '0.000';
(adoquery2.FieldByName('沥青质荧光亮度') as TFloatField).displayFormat := '0.00';
(adoquery2.FieldByName('水发光面积') as TFloatField).displayFormat := '0.000';
(adoquery2.FieldByName('水荧光亮度') as TFloatField).displayFormat := '0.00';
(adoquery2.FieldByName('色差') as TFloatField).displayFormat := '0.00';
first;
if savedialog1.Execute then
begin
strlist1:=tstringlist.Create;
str:=fields[4].FieldName;
for i:=5 to adoquery2.Fields.Count-1 do
str:=str+' '+fields[i].FieldName;
strlist1.Add(str);
while not eof do
begin
str:='';
str:=fieldbyname('归位深度').AsString+' '+ fieldbyname('油质波长均值').AsString +' '+fieldbyname('油质发光面积').AsString +' '+fieldbyname('油质荧光亮度').AsString+' '+ fieldbyname('胶质波长均值').AsString +' '+fieldbyname('胶质发光面积').AsString +' '+fieldbyname('胶质荧光亮度').AsString+' '+ fieldbyname('沥青质波长均值').AsString +' '+fieldbyname('沥青质发光面积').AsString +' '+fieldbyname('沥青质荧光亮度').AsString+' '+ fieldbyname('水波长均值').AsString +' '+fieldbyname('水发光面积').AsString +' '+fieldbyname('水荧光亮度').AsString+' '+ fieldbyname('色差').AsString +' '+fieldbyname('含油性评价指数').AsString ; //提取数据库中的信息

strlist1.Add(str);
next;
end;
strlist1.SaveToFile(savedialog1.FileName);

strlist1.Free;
end;
end;
end;
...全文
213 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
GDTOPONE 2008-06-08
  • 打赏
  • 举报
 回复
来一个完整的:


procedure TForm2.Button3Click(Sender: TObject); 

var 

strlist1:tstringlist; 

str:string; 

i:integer; 

begin 

  str:=''; 

with adoquery2 do 

begin 

    close; 

    sql.Clear; 

    sql.Add('select * from  ygprint where 井号='''+edit2.text+''' order by 归位深度 asc'); 

    open; 

    (adoquery2.FieldByName('油质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('油质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('胶质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('胶质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('沥青质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('沥青质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('水发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('水荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('色差') as TFloatField).displayFormat := '0.00'; 

    first; 

    if savedialog1.Execute then 

    begin 

    strlist1:=tstringlist.Create; 

    str:=fields[4].FieldName; 

    for i:=5 to adoquery2.Fields.Count-1 do 

      str:=str+' '+fields[i].FieldName; 

      strlist1.Add(str); 

      while not eof do 

      begin 

        str:=''; 

        str:=Gtow(fieldbyname('归位深度').AsString)+' '

        +Gtow(fieldbyname('油质波长均值').AsString)+' '

        +Gtow(fieldbyname('油质发光面积').AsString)+' '

        +Gtow(fieldbyname('油质荧光亮度').AsString)+' '

        +Gtow(fieldbyname('胶质波长均值').AsString)+' '

        +Gtow(fieldbyname('胶质发光面积').AsString)+' '

        +Gtow(fieldbyname('胶质荧光亮度').AsString)+' '

        +Gtow(fieldbyname('沥青质波长均值').AsString)+' '

        +Gtow(fieldbyname('沥青质发光面积').AsString)+' '

        +Gtow(fieldbyname('沥青质荧光亮度').AsString)+' '

        +Gtow(fieldbyname('水波长均值').AsString)+' '

        +Gtow(fieldbyname('水发光面积').AsString)+' '

        +Gtow(fieldbyname('水荧光亮度').AsString)+' '

        +Gtow(fieldbyname('色差').AsString)+' '

        +Gtow(fieldbyname('含油性评价指数').AsString); //提取数据库中的信息 



        

        strlist1.Add(str); 

        next; 

      end; 

      strlist1.SaveToFile(savedialog1.FileName); 



      strlist1.Free; 

    end; 

    end; 

end;
wlxc 2008-06-08
  • 打赏
  • 举报
 回复
连成字符串时可以格式化一下,如:Format('%.3f', [7.0033003])
GDTOPONE 2008-06-08
  • 打赏
  • 举报
 回复
str:=Gtow(str);{--------------新加入了这句}此句DEL掉
GDTOPONE 2008-06-08
  • 打赏
  • 举报
 回复
一时不小心处理错了修正以下的:


str:=Gtow(fieldbyname('归位深度').AsString)+' '+Gtow(fieldbyname('油质波长均值').AsString) +' '+Gtow(fieldbyname('油质发光面积').AsString) +' '+Gtow(fieldbyname('油质荧光亮度').AsString)+' '+Gtow(fieldbyname('胶质波长均值').AsString) +' '+Gtow(fieldbyname('胶质发光面积').AsString) +' '+Gtow(fieldbyname('胶质荧光亮度').AsString)+' '+Gtow(fieldbyname('沥青质波长均值').AsString) +' '+Gtow(fieldbyname('沥青质发光面积').AsString) +' '+Gtow(fieldbyname('沥青质荧亮度').AsString)+' '+Gtow(fieldbyname('水波长均值').AsString)+' '+Gtow(fieldbyname('水发光面积').AsString) +' '+Gtow(fieldbyname('水荧光亮度').AsString)+' '+Gtow(fieldbyname('色差').AsString) +' '+Gtow(fieldbyname('含油性评价指数').AsString) ; //提取数据库中的信息
GDTOPONE 2008-06-08
  • 打赏
  • 举报
 回复
其实有点不明白,只是任想像看能否为你解决问题:
1.相关函数:


function Gtow(s:string):string;

begin

{例如:S=12.00000000000,返回12.000}

Result:=copy(s,1,pos('.',s)-1)+copy(s,pos('.',s),4);

end;


2.处理:


procedure TForm2.Button3Click(Sender: TObject); 

var 

strlist1:tstringlist; 

str:string; 

i:integer; 

begin 

  str:=''; 

with adoquery2 do 

begin 

    close; 

    sql.Clear; 

    sql.Add('select * from  ygprint where 井号='''+edit2.text+''' order by 归位深度 asc'); 

    open; 

    (adoquery2.FieldByName('油质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('油质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('胶质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('胶质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('沥青质发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('沥青质荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('水发光面积') as TFloatField).displayFormat := '0.000'; 

    (adoquery2.FieldByName('水荧光亮度') as TFloatField).displayFormat := '0.00'; 

    (adoquery2.FieldByName('色差') as TFloatField).displayFormat := '0.00'; 

    first; 

    if savedialog1.Execute then 

    begin 

    strlist1:=tstringlist.Create; 

    str:=fields[4].FieldName; 

    for i:=5 to adoquery2.Fields.Count-1 do 

      str:=str+' '+fields[i].FieldName; 

      strlist1.Add(str); 

      while not eof do 

      begin 

        str:=''; 

        str:=fieldbyname('归位深度').AsString+' '+ fieldbyname('油质波长均值').AsString +' '+fieldbyname('油质发光面积').AsString +' '+fieldbyname('油质荧光亮度').AsString+' '+ fieldbyname('胶质波长均值').AsString +' '+fieldbyname('胶质发光面积').AsString +' '+fieldbyname('胶质荧光亮度').AsString+' '+ fieldbyname('沥青质波长均值').AsString +' '+fieldbyname('沥青质发光面积').AsString +' '+fieldbyname('沥青质荧光亮度').AsString+' '+ fieldbyname('水波长均值').AsString +' '+fieldbyname('水发光面积').AsString +' '+fieldbyname('水荧光亮度').AsString+' '+ fieldbyname('色差').AsString +' '+fieldbyname('含油性评价指数').AsString ; //提取数据库中的信息 



        str:=Gtow(str);{--------------新加入了这句}



        strlist1.Add(str); 

        next; 

      end; 

      strlist1.SaveToFile(savedialog1.FileName); 



      strlist1.Free; 

    end; 

    end; 

end;
MIS工具:网格编辑+万能过滤+万能查询+最佳网格宽度+等待窗口
让网格栏位的宽度根据其自身的数据最优化智能筛选BUG*待选字段值为空时,会重复增加进去*浮点型字段值比较有问题*Boolean字段型比较有问题,只认是与否1.3加入万能查询,以前是从胜天进销存中提取出来的,但我的速度快很...
MIS工具 v1.4 (网格编辑+万能过滤/查询+最佳网格宽度)
让网格栏位的宽度根据其自身的数据最优化智能筛选BUG*待选字段值为空时,会重复增加进去*浮点型字段值比较有问题*Boolean字段型比较有问题,只认是与否1.3加入万能查询,以前是从胜天进销存中提取出来的,但我的速度快很...
ColEditor 使用范例，需要使用Ehlib控件
*浮点型字段值比较有问题 *Boolean字段型比较有问题,只认是与否 1.3 加入万能查询,以前是从胜天进销存中提取出来的,但我的速度快很多倍,因为我用了DisableControls,嘿嘿! *后来发现,智能过滤应该是对任何数据库都...
读取oracle浮点数 处理,oracle – 从数据库中读取整数来返回浮点数
我们在Oracle DB中有一个表定义为：CREATE TABLE AVALUES(ACODE VARCHAR2(4) NOT NULL,ATYPE NUMBER NOT NULL,ANAME VARCHAR2(50),CREATED DATE DEFAULT SYSDATE)在Delphi中,我们在类似于此的ADOQuery组件中有一个...
数据库学习
数据库是按照数据结构来组织、存储和管理数据的仓库,数据管理不再仅仅是存储和管理数据，而转变成用户所需要的的各种数据管理方式。数据库有多种类型，从最简单的存储有各种数据的表格到能够海量数据存储的大型...
数据库相关

2,497

社区成员

88,445

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章