将listbox1中每一行的值，写入到自定义文本文件中

Question

var
  i: Integer;
  sli: TStringList;
  line: string;
begin
  sli := TStringList.Create;
  for i := 0 to lst1.Items.Count - 1 do
  begin
    line := line + ' ' + listbox1.Items[i];
    if ((i > 0) and ((i + 1) mod 6 = 0)) or
      (i = listbox1.Items.Count - 1) then
    begin
      sli.Add(TrimLeft(line));
      line := '';
    end;
  end;
  sli.SaveToFile('c:\11111.txt');
  sli.Free;
end;

Answer 1

for i := 0 to lst1.Items.Count - 1 do // lst1 改 listbox1