s:=TStringList.Create;
   setlength(buf,20));
   for i:=0 to 3 do
   begin
     t:='';
     for j:=0 to 4 do
       begin
         buf[i*5 j]:=i*5 j*2;
         t:=t inttostr(buf[i*5 j]);
       end;
         s.Add(t);
   end;
s.SaveToFile('E:\test.txt'); 

这样能数值以矩阵的形式存在test.txt下,当我利用下面的方法取读取数据时，报告了错误？

  s:=Tstringlist.Create ;
  s.LoadFromFile('e:\test.txt');
  for i:=0 to s.Count-1 do
    buffer[i]:=strtoint(s[i]); 

我想实现以矩阵的形式存数据，但是有可以正确的读出数据，请问可以怎么实现呢？

  s:=Tstringlist.Create ;
  try 
    s.LoadFromFile('e:\test.txt');
    SetLength(Buffer,s.Count);        for i:=0 to s.Count-1 do
      buffer[i]:=strtoint(s[i]);
 finally
  S.Free;
 end;

  SetLength(Buffer,s.Count);

这条我已经加了，可是还是有问题，是不是

 s:=Tstringlist.Create ;
  s.LoadFromFile('e:\test.txt');
  for i:=0 to s.Count-1 do
    buffer[i]:=strtoint(s[i]) 

读取时是一行一行读取的吗？

>读取时是一行一行读取的吗？ 是啊！ >可是还是有问题， buffer[i]:=strtoint(s[i]) 應該是這行出問題，如果文件檔一行行讀出來 若該行內容非整數，那麼就會出問題。 您可以先 用Showmessage，看一下該行內容。是否為您所要的？ for i:=0 to s.Count-1 do Showmessage(S[i]); 或者 buffer[i]:=strtoint(s[i]) 改成 buffer[i]:=strtointdef(s[i],0) {若無法轉成整數，就給0)

多谢wameng！！ 读取是一行一行来，而不是一个字符一个字符来的话，我的程序去读取时是会出错，因为数据是以矩阵方式存的 1 2 3 4 1 3 5 4 4 15 42 13 这样一次读取出来的str 就有 1 2 3 4，要将这样的 strtoint一定实现不了，不知有没有什么办法可以解决这个问题，使其可以一个一个数字的读出呢？

{ WRITE }
procedure TForm1.Button1Click(Sender: TObject);
var
  Buf : Array of integer;
  I,J :Integer;
  T : String;
  S : TStringlist;
begin
  S := TStringlist.Create;
  Try
    Setlength(Buf,20);
    for I:=0 to 3 do
    begin
      T:='';
      for J:=0 to 4 do
      begin
        Buf[I*5 J]:=I*5 J*2;
        T := T   Format('m',[buf[I*5 J]]);
      end;
      S.Add(T);
    end;
    s.SaveToFile('E:\test.txt');
  finally
   S.Free
  end;
end;
{ READ }
procedure TForm1.Button2Click(Sender: TObject);
var
  Buf : Array of integer;
  I,J:integer;
  S : TStringlist;
begin
  S := TStringlist.Create;
  Try
    S.LoadFromFile('e:\test.txt');
    SetLength(Buf,S.Count*5);
    For I:=0 to S.Count-1 do
      if S[I]<>'' then
        For J := 0 to 4 do
          Buf[I*5   J] := Strtoint(Trim(Copy(S[I],1 (J*6),6)));      Finally
    S.Free;
  end;
end;

* 我以 6 的固定字節，方便取出對應的位置。 發表人 - wameng 於 2004/10/22 17:40:46