{"id":61131,"date":"2024-10-13T08:41:15","date_gmt":"2024-10-13T00:41:15","guid":{"rendered":"https:\/\/server.hk\/cnblog\/61131\/"},"modified":"2024-10-13T08:41:15","modified_gmt":"2024-10-13T00:41:15","slug":"delphi-xe7%e5%af%a6%e7%8f%be%e6%96%87%e4%bb%b6%e6%95%b8%e6%93%9a%e5%ba%ab%e6%93%8d%e4%bd%9c-delphi-xe7-%e6%96%87%e4%bb%b6%e6%95%b8%e6%93%9a%e5%ba%ab","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/61131\/","title":{"rendered":"Delphi XE7\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u64cd\u4f5c (delphi xe7 \u6587\u4ef6\u6578\u64da\u5eab)"},"content":{"rendered":"

Delphi XE7\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u64cd\u4f5c<\/h1>\n

\u5728\u73fe\u4eca\u7684\u8edf\u4ef6\u958b\u767c\u4e2d\uff0c\u6578\u64da\u5eab\u7684\u4f7f\u7528\u5df2\u6210\u70ba\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u90e8\u5206\u3002Delphi XE7\u4f5c\u70ba\u4e00\u6b3e\u5f37\u5927\u7684\u958b\u767c\u5de5\u5177\uff0c\u63d0\u4f9b\u4e86\u591a\u7a2e\u65b9\u5f0f\u4f86\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u7684\u64cd\u4f5c\u3002\u672c\u6587\u5c07\u63a2\u8a0e\u5982\u4f55\u5728Delphi XE7\u4e2d\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u7684\u57fa\u672c\u64cd\u4f5c\uff0c\u5305\u62ec\u5275\u5efa\u3001\u8b80\u53d6\u3001\u66f4\u65b0\u548c\u522a\u9664\u6578\u64da\u3002<\/p>\n

\u4ec0\u9ebc\u662f\u6587\u4ef6\u6578\u64da\u5eab\uff1f<\/h2>\n

\u6587\u4ef6\u6578\u64da\u5eab\u662f\u4e00\u7a2e\u5c07\u6578\u64da\u5b58\u5132\u5728\u6587\u4ef6\u4e2d\u7684\u6578\u64da\u5eab\u7cfb\u7d71\u3002\u8207\u50b3\u7d71\u7684\u95dc\u4fc2\u578b\u6578\u64da\u5eab\u76f8\u6bd4\uff0c\u6587\u4ef6\u6578\u64da\u5eab\u901a\u5e38\u66f4\u8f15\u91cf\uff0c\u9069\u5408\u5c0f\u578b\u61c9\u7528\u6216\u5d4c\u5165\u5f0f\u7cfb\u7d71\u3002Delphi XE7\u652f\u6301\u591a\u7a2e\u6587\u4ef6\u6578\u64da\u5eab\u683c\u5f0f\uff0c\u5982CSV\u3001XML\u548cJSON\u7b49\u3002<\/p>\n

Delphi XE7\u4e2d\u7684\u6587\u4ef6\u6578\u64da\u5eab\u64cd\u4f5c<\/h2>\n

1. \u5275\u5efa\u6587\u4ef6\u6578\u64da\u5eab<\/h3>\n

\u5728Delphi XE7\u4e2d\uff0c\u5275\u5efa\u6587\u4ef6\u6578\u64da\u5eab\u7684\u7b2c\u4e00\u6b65\u662f\u9078\u64c7\u5408\u9069\u7684\u6587\u4ef6\u683c\u5f0f\u3002\u4ee5\u4e0b\u662f\u4e00\u500b\u7c21\u55ae\u7684\u793a\u4f8b\uff0c\u5c55\u793a\u5982\u4f55\u5275\u5efa\u4e00\u500bCSV\u6587\u4ef6\u4f5c\u70ba\u6578\u64da\u5eab\uff1a<\/p>\n

procedure CreateCSVFile(const FileName: string);\nvar\n  CSVFile: TextFile;\nbegin\n  AssignFile(CSVFile, FileName);\n  Rewrite(CSVFile);\n  Writeln(CSVFile, 'ID,Name,Age'); \/\/ \u5beb\u5165\u8868\u982d\n  CloseFile(CSVFile);\nend;\n<\/code><\/pre>\n
2. \u8b80\u53d6\u6587\u4ef6\u6578\u64da\u5eab<\/h3>\n
\u8b80\u53d6CSV\u6587\u4ef6\u7684\u6578\u64da\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0b\u4ee3\u78bc\uff1a<\/p>\n
procedure ReadCSVFile(const FileName: string);\nvar\n  CSVFile: TextFile;\n  Line: string;\nbegin\n  AssignFile(CSVFile, FileName);\n  Reset(CSVFile);\n  while not Eof(CSVFile) do\n  begin\n    Readln(CSVFile, Line);\n    \/\/ \u5728\u9019\u88e1\u53ef\u4ee5\u9032\u4e00\u6b65\u8655\u7406\u6bcf\u4e00\u884c\u6578\u64da\n    ShowMessage(Line); \/\/ \u986f\u793a\u6bcf\u4e00\u884c\u6578\u64da\n  end;\n  CloseFile(CSVFile);\nend;\n<\/code><\/pre>\n
3. \u66f4\u65b0\u6587\u4ef6\u6578\u64da\u5eab<\/h3>\n
\u66f4\u65b0\u6587\u4ef6\u6578\u64da\u5eab\u901a\u5e38\u9700\u8981\u8b80\u53d6\u6574\u500b\u6587\u4ef6\uff0c\u4fee\u6539\u6240\u9700\u7684\u6578\u64da\uff0c\u7136\u5f8c\u91cd\u65b0\u5beb\u5165\u6587\u4ef6\u3002\u4ee5\u4e0b\u662f\u4e00\u500b\u7c21\u55ae\u7684\u66f4\u65b0\u793a\u4f8b\uff1a<\/p>\n
procedure UpdateCSVFile(const FileName: string; const ID: string; const NewName: string);\nvar\n  CSVFile: TextFile;\n  Lines: TStringList;\n  Line: string;\nbegin\n  Lines := TStringList.Create;\n  try\n    AssignFile(CSVFile, FileName);\n    Reset(CSVFile);\n    while not Eof(CSVFile) do\n    begin\n      Readln(CSVFile, Line);\n      if Pos(ID, Line) > 0 then\n        Line := StringReplace(Line, ExtractDelimited(2, Line, [',']), NewName, [rfReplaceAll]); \/\/ \u66f4\u65b0\u540d\u7a31\n      Lines.Add(Line);\n    end;\n    CloseFile(CSVFile);\n\n    Rewrite(CSVFile);\n    for Line in Lines do\n      Writeln(CSVFile, Line); \/\/ \u5beb\u5165\u66f4\u65b0\u5f8c\u7684\u6578\u64da\n    CloseFile(CSVFile);\n  finally\n    Lines.Free;\n  end;\nend;\n<\/code><\/pre>\n
4. \u522a\u9664\u6587\u4ef6\u6578\u64da\u5eab\u4e2d\u7684\u6578\u64da<\/h3>\n
\u522a\u9664\u6578\u64da\u7684\u904e\u7a0b\u8207\u66f4\u65b0\u985e\u4f3c\uff0c\u4ee5\u4e0b\u662f\u4e00\u500b\u522a\u9664\u793a\u4f8b\uff1a<\/p>\n
procedure DeleteFromCSVFile(const FileName: string; const ID: string);\nvar\n  CSVFile: TextFile;\n  Lines: TStringList;\n  Line: string;\nbegin\n  Lines := TStringList.Create;\n  try\n    AssignFile(CSVFile, FileName);\n    Reset(CSVFile);\n    while not Eof(CSVFile) do\n    begin\n      Readln(CSVFile, Line);\n      if Pos(ID, Line) = 0 then\n        Lines.Add(Line); \/\/ \u53ea\u4fdd\u7559\u4e0d\u5305\u542bID\u7684\u884c\n    end;\n    CloseFile(CSVFile);\n\n    Rewrite(CSVFile);\n    for Line in Lines do\n      Writeln(CSVFile, Line); \/\/ \u5beb\u5165\u66f4\u65b0\u5f8c\u7684\u6578\u64da\n    CloseFile(CSVFile);\n  finally\n    Lines.Free;\n  end;\nend;\n<\/code><\/pre>\n
\u7e3d\u7d50<\/h2>\n
\u5728Delphi XE7\u4e2d\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u64cd\u4f5c\u76f8\u5c0d\u7c21\u55ae\uff0c\u901a\u904e\u5275\u5efa\u3001\u8b80\u53d6\u3001\u66f4\u65b0\u548c\u522a\u9664\u7b49\u57fa\u672c\u64cd\u4f5c\uff0c\u53ef\u4ee5\u6709\u6548\u5730\u7ba1\u7406\u6578\u64da\u3002\u9019\u4e9b\u64cd\u4f5c\u4e0d\u50c5\u9069\u7528\u65bc\u5c0f\u578b\u61c9\u7528\uff0c\u4e5f\u53ef\u4ee5\u4f5c\u70ba\u5b78\u7fd2\u6578\u64da\u5eab\u7ba1\u7406\u7684\u57fa\u790e\u3002\u82e5\u60a8\u9700\u8981\u66f4\u9ad8\u6548\u7684\u6578\u64da\u5b58\u5132\u89e3\u6c7a\u65b9\u6848\uff0c\u53ef\u4ee5\u8003\u616e\u4f7f\u7528\u9999\u6e2fVPS<\/a>\u6216\u5176\u4ed6\u96f2\u670d\u52d9\u4f86\u652f\u6301\u60a8\u7684\u61c9\u7528\u7a0b\u5e8f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u63a2\u7d22\u5982\u4f55\u5728Delphi XE7\u4e2d\u5be6\u73fe\u6587\u4ef6\u6578\u64da\u5eab\u64cd\u4f5c\uff0c\u63d0\u5347\u6578\u64da\u7ba1\u7406\u6548\u7387\uff0c\u7c21\u5316\u958b\u767c\u6d41\u7a0b\uff0c\u5be6\u73fe\u9ad8\u6548\u6578\u64da\u5b58\u53d6\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[101],"tags":[],"class_list":["post-61131","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/61131","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/comments?post=61131"}],"version-history":[{"count":1,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/61131\/revisions"}],"predecessor-version":[{"id":61132,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/61131\/revisions\/61132"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=61131"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=61131"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=61131"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}