{"id":740,"date":"2013-10-02T10:03:55","date_gmt":"2013-10-02T02:03:55","guid":{"rendered":"http:\/\/www.tansoo.cn\/?p=740"},"modified":"2014-09-11T10:05:35","modified_gmt":"2014-09-11T02:05:35","slug":"%e5%88%a9%e7%94%a8tstringlis%e5%b0%86%e6%95%b0%e6%8d%ae%e9%9b%86%e5%bf%ab%e9%80%9f%e4%bf%9d%e5%ad%98%e4%b8%baexcel%e8%83%bd%e8%af%86%e5%88%ab%e7%9a%84%e6%96%87%e4%bb%b6","status":"publish","type":"post","link":"http:\/\/www.tansoo.cn\/?p=740","title":{"rendered":"\u5229\u7528TStringLis\u5c06\u6570\u636e\u96c6\u5feb\u901f\u4fdd\u5b58\u4e3aExcel\u80fd\u8bc6\u522b\u7684\u6587\u4ef6"},"content":{"rendered":"<p>\u5229\u7528Excel\u80fd\u591f#9\u5b57\u7b26\u7684\u7279\u70b9\uff0c\u6211\u4eec\u53ef\u4ee5\u5c06\u5927\u6570\u636e\u91cf\u7684\u6570\u636e\u96c6\u4fdd\u5b58\u4e3aExcel\u80fd\u591f\u8bc6\u522b\u7684\u6587\u4ef6\uff0c\u800c\u4e14\u901f\u5ea6\u8d85\u5feb\uff0c\u8bf7\u770b\u4ee3\u7801 <\/p>\n<pre class=\"lang:delphi decode:true \" >procedure Tfrm_\u673a\u65c1_\u4e0a\u673a\u7ba1\u7406.Button12Click(Sender: TObject);\r\nvar\r\n  J: Integer;\r\n  List: TStringList;\r\n  s: string;\r\nbegin\r\n  List := TStringList.Create;\r\n  Q_\u673a\u65c1.DisableControls;\r\n\r\n  for J := 0 to Q_\u673a\u65c1.FieldCount - 1 do\r\n    s := s + Q_\u673a\u65c1.Fields[J].FieldName + #9;\r\n  List.Add(s);\r\n\r\n  while not Q_\u673a\u65c1.Eof do\r\n  begin\r\n    s := '';\r\n    for J := 0 to Q_\u673a\u65c1.FieldCount - 1 do\r\n      s := s + Q_\u673a\u65c1.Fields[J].AsString + #9;\r\n    List.Add(s);\r\n    Q_\u673a\u65c1.Next;\r\n  end;\r\n\r\n  List.SaveToFile('1.xls');\r\n  Q_\u673a\u65c1.EnableControls;\r\n  List.Free;\r\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u5229\u7528Excel\u80fd\u591f#9\u5b57\u7b26\u7684\u7279\u70b9\uff0c\u6211\u4eec\u53ef\u4ee5\u5c06\u5927\u6570\u636e\u91cf\u7684\u6570\u636e\u96c6\u4fdd\u5b58\u4e3aExcel\u80fd\u591f\u8bc6\u522b\u7684\u6587\u4ef6\uff0c\u800c\u4e14\u901f\u5ea6\u8d85\u5feb\uff0c\u8bf7\u770b [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[14,16],"class_list":["post-740","post","type-post","status-publish","format-standard","hentry","category-program","tag-delphi","tag-excel"],"_links":{"self":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/740","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=740"}],"version-history":[{"count":0,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/740\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=740"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=740"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=740"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}