如何把TXT文件中数据组的所有数据分别赋值给各自的变量(200分)

给出一个数据组 此数据组 每一行的数据 的两列代表一个变量 相应变量后面的数据在哪一列在这个TXT文件中都是由严格要求的 请问如何做一个程序来读取 每一个数据 并把每一个数据存储在一个地址呢 谢谢了
LS SOUTH 500. STATIONS500. 1 1 0.0
LS SOUTH 500. STATIONS500. 1 -1 5.0
MC NORTH G120.0 4000. .01 2.
MC NORTH G220.0 4000. .01 2.
MC NORTH G320.0 4000. .01 2.
MC SLACK 20.0 4000. .006 2.
M SOUTH G120.0 1511. .9 H .2 .2 .064.08
MF SOUTH G120.0 7238. 1511 0.0.35 .7 0.9 0.7 7.6 0.0 0.18 2.
EJ SOUTH G120.0 0.0 30.0 .04 .0 -6.0 -3.224.03 0.0 .7
GH SOUTH G120.0 2000. .05 .25 .04 5.0 0.5 0.2 0.3 .25
D RECTFIER113. .09 .03 4.60 .012 249.P 1.2 0. 100. 1
D INVERTER113. .09 .03 4.60 .012 249.P 1.2 .10 100. 1
LB SOUTH 500. 0.5 0.5 0.5 0.5 1.8 -2.
LB STATIONN500. 0.5 0.5 0.5 0.5 1.8 -2.
LB STATIONS500. 0.5 0.5 0.5 0.5 1.8 -2.
LN RECTFIER113.
LN INVERTER113.
FF 1.0 250.
90
MH
BH
B NORTH 500. 3
B SOUTH 500. 3
B STATIONN500. 3
B STATIONS500. 3
GH SLACK 20.0 1
G NORTH G120.0 3 3 3 3 3
G SOUTH G120.0 3 3 3 3 3
G SLACK 20.0 3 3 3 3 3
LH 1 3500. -500.
L NORTH 500. STATIONN500. 3 3 3
L STATIONN500. STATIONS500. 3 3 3
L NORTH 500. RECTFIER113. 3 3
L SOUTH 500. INVERTER113. 3 3
DH
D RECTFIER113. INVERTER113. 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
99

老的Pascal的按记录读文件的法子应该能满足这个要求。
在帮助里头查file of的关键字看看吧。

好像不是很有规律

请参考Delphi帮助中的记录文件使用。

是用空格分隔开的吗？
是的话很简单：读一行数据s出来，
copy(s,1,Pos(' ',s)-1)为第一个数据
delete(s,1,Pos(' ',s))
然后再copy,再delete。。。
这样，所有的参数你都能取出