我在读取一个文本文件里的数据,数据格式是:
1 2 3 4
1 2 3 4
....
5 6 7 8请问应该如何将每个数据读进一个二维数组。

解决方案 »

  1.   

    先读到TStringList里,然后一个一个数写进去
      

  2.   

    能具体些吗?citytramper(从开始到现在)兄!!!
      

  3.   

    http://expert.csdn.net/Expert/topic/1547/1547967.xml?temp=3.574771E-02
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      ss1, ss2: TStringList;
      i, j: Integer;
      aa: array of array [0..3] of Integer;
    begin
      ss1 := TStringList.Create;
      ss2 := TStringList.Create;
      ss1.LoadFromFile('d:\z.txt');
      for i := 0 to ss1.Count - 1 do begin
        ss2.CommaText := ss1[i];
        SetLength(aa, i+1);
        for j := 0 to ss2.Count - 1 do
          if j > 3 then
            Break
          else
            aa[i, j] := StrToIntDef(ss2[j], 0);
      end;
      ss2.Free;
      ss1.Free;
    end;