我现在Delphi读数据库,然后写成fortran程序能读的二进制文件。如果把下边的fortran程序,转成delphi程序,我的功能就可以实现了,我用filestream来读的,如何实现换行?请各位高手帮忙,十分火急。
      program readzd
      parameter (num=1,kt=14)
      dimension lat(num),lon(num),o3(num,kt)
real lat1(num),lon1(num)
      character stid(num)*8,char*20 open(3,file='air_quality_wuk.dat',form='binary')
      open(1,file='test')
   TIM=0.0
         NLEV=1
         NFLAG=1
   
  do k=1,kt
          do j=1,num
        read(3)stid(j),lat1(j),lon1(j),TIM,NLEV,NFLAG  /注:这是一行,在delphi如何实现?
        write(1,*)stid(j),lat1(j),lon1(j),TIM,NLEV,NFLAG
  read(3) o3(j,k)
  write(1,*)o3(j,k)/这是一行,在在delphi如何实现?
         enddo
        read(3) stid(1),lat,lon,TIM,NLEV,NFLAG
  write(1,*) stid(1),lat,lon,TIM,NLEV,NFLAG
  enddo
        close(3)  
  close(1)
      end