怎样读取文件中的数据 ( 积分: 50 )

  • 主题发起人 主题发起人 trimtrim
  • 开始时间 开始时间
T

trimtrim

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要进行数值计算,下面文件是输入的参数,怎样把文件中的数据读入到变量中去(等号后面的空格数是不确定的),在fortan 中很简单,在delphi中不知道怎么做,
$INGRID
MR = 10
NR = 10
IU = 1
NTYPE = 0
ICUR = 0
IBC = 1
DXR = 100
DYR = 100
DT = 10
ISPACE = 0
ND = 1
IFF = 1, 0 , 0
ISP = 0
IINPUT = 1
IOUTPUT = 1
$end
$inmd
md = 1
$end
$WAVES1A
IWAVE = 1
NFREQS = 1
$end
 
我现在要进行数值计算,下面文件是输入的参数,怎样把文件中的数据读入到变量中去(等号后面的空格数是不确定的),在fortan 中很简单,在delphi中不知道怎么做,
$INGRID
MR = 10
NR = 10
IU = 1
NTYPE = 0
ICUR = 0
IBC = 1
DXR = 100
DYR = 100
DT = 10
ISPACE = 0
ND = 1
IFF = 1, 0 , 0
ISP = 0
IINPUT = 1
IOUTPUT = 1
$end
$inmd
md = 1
$end
$WAVES1A
IWAVE = 1
NFREQS = 1
$end
 
还有一个问题,怎样把fortran的有各式语句写成delphi格式的
例如:
real :a(100,100)
open(2,file='dat.dat')
do i=1,100
write(2,100)(a(i,j),j=1,100)
enddo
100 fromat(20f10.4)
 
后退
顶部