unit datatran;         //數(shù)據(jù)轉(zhuǎn)換單元——>string

interface

implementation
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;