我现在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
解决方案 »
- 长期的高级群招管理员
- 向其他程序的groupbox里的控件TeEdit发送消息,怎么发送不过去啊??
- 就这么两句,为什么内存总在涨,内存泄漏吗?大家帮忙分析分析
- 我的窗体屏蔽了ALT+F4功能,但还是可以用他,为什么??是MDI主窗体,测试的时候,随便做一个窗体可以屏蔽啊,但现在我的软件不行,代码
- 如何生成另外一个exe程序(愿以木马原代码做酬谢)
- 谁有ERP开发文档?
- 查询问题??
- 我如何关闭一个外部程序(非windows程序)???非常感谢!!
- 制作安装程序的问题
- 控件TreeView节点控制,迷惑不解!!!
- 在DELPHI5.0中,如何安装EHLIB?
- 请问各位如何判断一个目录下某个文件是否存在,并对它进行读写操作
不过可以到其他版区去问一下,能够转成其他如C++,Java等也好啊,这样要转成Delphi就容易了。
呵呵。