导入excel的最简单方法.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 25 行

var
  I: Integer;
  Str: String;
  StrList: TStringList;//用于存储数据的字符列表
begin
  StrList := TStringList.Create;
  try
    with Table1 do
    begin
      First;
      while not Eof do
      begin
        Str := '';
        for I := 0 to FieldCount-1 do
          Str := Str + Fields[I].AsString + #9;  //关键是错在这儿
        StrList.Add(Str);
        Next;
      end;
      StrList.SaveToFile('test.xls');
    end;
    StrList.Free;
  except
    StrList.Free;
  end;
end;