www.pudn.com > Apriori_Kidney.rar > datatran.pas

unit datatran;         //数据转换单元——>string 
 
interface 
 
var 
i:integer  ; 
  ib:integer  ; 
  itnb:integer; 
  il: real; 
  ibl:real; 
  zxd:real ; 
 
function  transtr(i:integer  ; 
  ib:integer  ; 
  itnb:integer; 
  il: real; 
  ibl:real; 
  zxd:real):string ; 
begin 
j:= inttostr(i)   ; 
     il:=i/3022; 
     ibl:=ib/itnb; 
     zxd:=ibl/il; 
     jil:=floattostr(il); 
     jib:=inttostr(ib)   ; 
     jibl:=floattostr(ibl); 
     jzxd:=floattostr(zxd); 
end; 
end;