利用TStringLis将数据集快速保存为Excel能识别的文件

作者 admin

2013年10月2日 1 分钟阅读

利用Excel能够#9字符的特点，我们可以将大数据量的数据集保存为Excel能够识别的文件，而且速度超快，请看代码

procedure Tfrm_机旁_上机管理.Button12Click(Sender: TObject);
var
  J: Integer;
  List: TStringList;
  s: string;
begin
  List := TStringList.Create;
  Q_机旁.DisableControls;

  for J := 0 to Q_机旁.FieldCount - 1 do
    s := s + Q_机旁.Fields[J].FieldName + #9;
  List.Add(s);

  while not Q_机旁.Eof do
  begin
    s := '';
    for J := 0 to Q_机旁.FieldCount - 1 do
      s := s + Q_机旁.Fields[J].AsString + #9;
    List.Add(s);
    Q_机旁.Next;
  end;

  List.SaveToFile('1.xls');
  Q_机旁.EnableControls;
  List.Free;
end;

procedure Tfrm_机旁_上机管理.Button12Click(Sender: TObject);

var

J: Integer;

List: TStringList;

s: string;

begin

List := TStringList.Create;

Q_机旁.DisableControls;

for J := 0 to Q_机旁.FieldCount - 1 do

s := s + Q_机旁.Fields[J].FieldName + #9;

List.Add(s);

while not Q_机旁.Eof do

begin

s := '';

for J := 0 to Q_机旁.FieldCount - 1 do

s := s + Q_机旁.Fields[J].AsString + #9;

List.Add(s);

Q_机旁.Next;

end;

List.SaveToFile('1.xls');

Q_机旁.EnableControls;

List.Free;

end;

admin

关注我

其他文章

上一个

EhLib表格控件DBGridEh自动排序、自动过滤的实现

下一个

将GPS的ddmm.mmm格式转换为ddd.dddd格式

一条评论

Scout说道：

2017年1月20日 14:19

rounded up some fabulous crafts ideas for you and your family. Enjoy!5 Halloween craft idaeeHallowesn pop box gift from Lil LunaCandy corn treat bags from I Heart Nap TimeHalloween silhouettes with free download

回复

发表回复取消回复

这个站点使用 Akismet 来减少垃圾评论。了解你的评论数据如何被处理。