如何将一个数组写入DAT文件并规则的从DAT文件中依次读出？

Question

我现在有一个文件D：\1.DAT ，文件内容如下：
     150.00      -.39    -37.41
     150.00      -.37    -36.45
     150.00      -.36    -35.44
     150.00      -.34    -34.38
如何将该文件中的数据依次读入我自定义的数组dz[0..11]中呢？
结果是dz[0]=150，dz[1]=-0.39......dz[11]=-34.38呢？请高手不吝赐教呀！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
a : array of string;
tm : TStringList;
i : integer;
begin   tm := TStringList.Create;
   tm.LoadFromFile('d:\1.dat');   tm.Delimiter := ' ';
   tm.DelimitedText := tm.Text;
   SetLength(a,tm.Count);
   for i:=0 to tm.Count-1 do
   begin
     a[i] := tm[i];
   end;
   ShowMessage(a[2]);end;

Answer 2

上面的这为兄弟，为什么我的程序执行到   
tm.Delimiter := ' ';
tm.DelimitedText := tm.Text;
会出错啊，说没有定义delimiter呢？

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
a : array of string;
tm : TStringList;
i : integer;
begin   tm := TStringList.Create;
   tm.LoadFromFile('d:\1.dat');   tm.Delimiter := ' ';
   tm.DelimitedText := tm.Text;
   SetLength(a,tm.Count);
   for i:=0 to tm.Count-1 do
   begin
     a[i] := tm[i];
   end;
   ShowMessage(a[2]);
end;end.
D7,WINXP下测试通过。。看看你那里是不是写错了。