关于提取数据的问题

Question

假设test.txt中按行排列qmax=  100(kw/m*m)   Q=   200.1(kJ/m*m)
qmax=  200(kw/m*m)   Q=   200.2(kJ/m*m)
qmax=  300(kw/m*m)   Q=   200.3(kJ/m*m)
qmax=  400(kw/m*m)   Q=   200.4(kJ/m*m)
qmax=  500(kw/m*m)   Q=   200.5(kJ/m*m)
qmax=  600(kw/m*m)   Q=   200.6(kJ/m*m)如何将每一行中的数字提取出来放入一个数组中，谢谢

Answer 1

Readln一行，Copy函数截取表示数字的字符串，直接放入设定好的数组。若数组需要的是数字，截取到的字符串转换成数字存入直到Eof

Answer 2

ss:='';
for i:=1 to length(s) do
begin
  if not (s[i] in ['0'..'9','.']) then
  begin
    if ss<>'' then
      //写ss到数组中
    ss:='';
  end
  else
  begin
    if (s[i] in ['0'..'9']) or ((s[i]='.') and (ss<>'')) then
      ss:=ss+s[i];
  end;
end;
if ss<>'' then
  //写ss到数组中

Answer 3

直接用TStringList然后loadfromfile，到列表里处理更方便，想放到数组，就循环列表就可