我现在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
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
不过可以到其他版区去问一下,能够转成其他如C++,Java等也好啊,这样要转成Delphi就容易了。
呵呵。