赋于一个变量一个数据组

Question

while not eof(ATextFile) do
    begin
      Readln(ATextFile,tl); //其实是ListBox1其中一行的值
      nl:=Encode(tl);//加密  其实是ListBox1其中一行的值
      //Writeln(ATextFile,nl);不能加入到这个位置，否则会报错
    end;
    CloseFile(ATextFile);
Writeln(ATextFile,nl);//我想将nl赋于一个数据组，也就是整个ListBox1中的数据，再写入ATextFileCloseFile(ATextFile);赋于一个变量一个数据组加密

Answer 1

你可以试试用 DELPHI的变体变量 Variant  存放数组

Answer 2

AssignFile(ATextFile,'E:\123.txt');    Reset(ATextFile);    while not eof(ATextFile) do
    begin
      Readln(ATextFile,tl);
      nl:= VarArrayCreate([1,n], varVariant);      for i := 1 to n do
      begin
      nl[i]:=Encode(tl);//加密       end;
    end;
    CloseFile(ATextFile);
        AssignFile(ATextFile,'E:\123.txt');
    Rewrite(ATextFile);
           for i := VarArrayLowBound(nl, 1) to VarArrayHighBound(nl, 1) do
  begin
  Writeln(ATextFile,nl[i]);  end;    CloseFile(ATextFile);请问这一段代码哪里错了~？？