字符串 数组 怎么存入文件！

Question

type
  ts=array[1..100] of array[1..10] of string;var 
  a:=ts;想把a存入文件 怎么弄？

Answer 1

type
  TS = array[1..100] of array[1..10] of string;procedure TForm1.Button1Click(Sender: TObject);
var
  A : TS;
  I, J : integer;
  F : TextFile;
begin
  AssignFile(F, 'C:\Test.txt');
  ReWrite(F);
  for I := 1 to 100 do
    for J := 1 to 10 do
     WriteLn(F, A[I,J]);
  CloseFile(F);
end;

Answer 2

谢谢你的方法 
另外可不可以把整个数组转换成数据流 来存储呢。或者把数组放到tstringlist里面直接存储文件，tstringlist.addobject 可以实现吗？
主要是要方便的文件还原成数组。

Answer 3

type
  TS = array[1..100] of array[1..10] of string;var
  sl: TStringList;
  A: TS;存入
sl.Clear;
for i:=1 to 100 do
  for j:=1 to 10 do
    sl.Add(A[I,J]);
sl.SaveToFile('*.txt');读取
sl.LoadFromFile('*.txt');
for i:=1 to 100 do
  for j:=1 to 10 do
    A[I,J] := sl[i*j];