{"id":468,"date":"2009-06-19T09:26:00","date_gmt":"2009-06-19T01:26:00","guid":{"rendered":""},"modified":"2013-11-17T17:29:20","modified_gmt":"2013-11-17T09:29:20","slug":"delphi%e6%96%87%e4%bb%b6%e6%93%8d%e4%bd%9c%e7%9a%84%e6%80%bb%e7%bb%93","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/468.html","title":{"rendered":"Delphi\u6587\u4ef6\u64cd\u4f5c\u7684\u603b\u7ed3"},"content":{"rendered":"

\u6587\u4ef6\u662f\u540c\u4e00\u79cd\u7c7b\u578b\u5143\u7d20\u7684\u6709\u5e8f\u96c6\u5408\uff0c\u662f\u5185\u5b58\u4e0e\u5916\u8bbe\u4e4b\u95f4\u4f20\u8f93\u6570\u636e\u7684\u6e20\u9053\u3002\u6587\u4ef6\u7684\u672c\u8d28\u662f\u4e00\u4e2a\u6570\u636e\u6d41\uff0c\u6240\u6709\u7684\u6587\u4ef6\u5b9e\u9645\u4e0a\u662f\u4e00\u4e32\u4e8c\u8fdb\u5236\u5e8f\u5217\u3002
\n\u6587\u4ef6\u7ba1\u7406\u5305\u62ec\uff1a1\u3001\u6587\u4ef6\u64cd\u4f5c\u30022\u3001\u76ee\u5f55\u64cd\u4f5c\u30023\u3001\u9a71\u52a8\u5668\u64cd\u4f5c\u3002\u4e09\u90e8\u5206\u3002<\/p>\n

1\u3001\u5e38\u89c1\u6587\u4ef6\u64cd\u4f5c\u51fd\u6570\u548c\u8fc7\u7a0b\u3002<\/p>\n

1.1\u3001AssignFile\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u5c06\u4e00\u4e2a\u5916\u90e8\u6587\u4ef6\u7684\u6587\u4ef6\u540d\u4e0e\u4e00\u4e2aFile\u7c7b\u578b\u7684\u53d8\u91cf\u5173\u8054\uff0c\u5e76\u5bf9\u53d8\u91cf\u8fdb\u884c\u521d\u59cb\u5316\u3002
\n\u539f\u578b\uff1aprocedure AssignFile(var F; FileName: String);
\nF\uff1a\u4e00\u4e2aFile\u7c7b\u578b\u7684\u53d8\u91cf\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u6570\u636e\u7c7b\u578b\u3002
\nFileName\uff1a\u5916\u90e8\u6587\u4ef6\u7684\u6587\u4ef6\u540d\u3002<\/p>\n

1.2\u3001FileExists\u51fd\u6570
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u6d4b\u8bd5\u6307\u5b9a\u6587\u4ef6\u540d\u7684\u6587\u4ef6\u662f\u5426\u5b58\u5728\u3002
\n\u539f\u578b\uff1afunction FileExists(const FileName: String): Boolean;
\nFileName\uff1a\u6587\u4ef6\u540d\u3002\u5b57\u7b26\u4e32\u7c7b\u578b\u3002
\n\u6ce8\u610f\uff1a\u5982\u679c\u6587\u4ef6\u5b58\u5728\uff0c\u8fd4\u56deTrue\uff1b\u5426\u5219\uff0c\u8fd4\u56deFalse\u3002<\/p>\n

1.3\u3001Append\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u4e3a\u5728\u4e00\u4e2a\u5df2\u7ecf\u5b58\u5728\u7684\u6587\u4ef6\u672b\u5c3e\u6dfb\u52a0\u6587\u672c\u505a\u597d\u51c6\u5907\u5de5\u4f5c\u3002\u6587\u4ef6\u662f\u53ea\u5199\u65b9\u5f0f\u6253\u5f00\u7684\u3002
\n\u539f\u578b\uff1aprocedure Append(var F: Text);
\nF: \u4e00\u4e2aTextFile\u7c7b\u578b\u53d8\u91cf\u3002
\n\u6ce8\u610f\uff1a\u8fd9\u662f\u4e00\u4e2a\u5bf9\u6587\u672c\u7c7b\u578b\u6587\u4ef6\u64cd\u4f5c\u7684\u8fc7\u7a0b\u3002\u5176\u4e2d\u53d8\u91cfF\u5fc5\u987b\u548c\u5916\u90e8\u6587\u4ef6\u5173\u8054\u3002\u5982\u679cF\u6ca1\u6709\u4e0e\u5916\u90e8\u6587\u4ef6\u5173\u8054\uff0c\u5c06\u629b\u51fa\u5f02\u5e38\u3002\u5982\u679cF\u5df2\u7ecf\u5904\u4e8e\u6253\u5f00\u72b6\u6001\uff0c\u5219\u8fc7\u7a0b\u4f1a\u5173\u95edF\u5e76\u91cd\u65b0\u6253\u5f00\u3002\u6587\u4ef6\u6307\u9488\u4f4d\u7f6e\u5c06\u88ab\u8bbe\u7f6e\u5728\u6587\u4ef6\u672b\u5c3e\u3002<\/p>\n

1.4\u3001Reset\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u5bf9\u4e8e\u6587\u672c\u6587\u4ef6\uff0cReset\u8fc7\u7a0b\u5c06\u4ee5\u53ea\u8bfb\u65b9\u5f0f\u6253\u5f00\u6587\u4ef6\u3002\u5bf9\u4e8e\u7c7b\u578b\u6587\u4ef6\u548c\u65e0\u7c7b\u578b\u6587\u4ef6\uff0cReset\u8fc7\u7a0b\u5c06\u4ee5\u53ef\u8bfb\u5199\u65b9\u5f0f\u6253\u5f00\u6587\u4ef6\u3002
\n\u539f\u578b\uff1aprocedure Reset(var F [: File; RecSize: Word ] );
\nF\uff1aFile\u7c7b\u578b\u53d8\u91cf\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u6587\u4ef6\u7c7b\u578b\u3002
\nRecSize\uff1a\u6587\u4ef6\u7684\u5927\u5c0f\u3002\u5b83\u662f\u4e00\u4e2a\u53ef\u9009\u7684\u9009\u9879\uff0c\u53ea\u6709\u5f53F\u4e3a\u65e0\u7c7b\u578b\u6587\u4ef6\u65f6\u624d\u53ef\u4ee5\u88ab\u6307\u5b9a\u3002\u5982\u679cF\u4e3a\u65e0\u7c7b\u578b\u6587\u4ef6\uff0c\u5219RecSize\u6307\u5b9a\u4e86\u5728\u6570\u636e\u4f20\u8f93\u8fc7\u7a0b\u4e2d\u4f7f\u7528\u7684\u8bb0\u5f55\u7684\u5927\u5c0f\u3002\u5982\u679c\u53c2\u6570RecSize\u88ab\u7701\u7565\u4e86\uff0c\u5219\u9ed8\u8ba4\u7684\u8bb0\u5f55\u5927\u5c0f\u4e3a128\u5b57\u8282\u3002
\n\u6ce8\u610f\uff1a\u5f53\u8be5\u8fc7\u7a0b\u6253\u5f00\u6587\u4ef6\u65f6\uff0c\u5982\u679c\u6587\u4ef6\u4e0d\u5b58\u5728\u5219\u4ea7\u751f\u5f02\u5e38\u3002\u5982\u679c\u6587\u4ef6\u5df2\u7ecf\u6253\u5f00\u4e86\uff0c\u5219\u5148\u5173\u95ed\u6587\u4ef6\uff0c\u7136\u540e\u91cd\u65b0\u6253\u5f00\uff0c\u5e76\u5c06\u6587\u4ef6\u6307\u9488\u653e\u5230\u6587\u4ef6\u5f00\u5934\u5904\u3002\u9ed8\u8ba4\u7684\u6587\u4ef6\u6a21\u5f0f(FileMode)\u4e3a2\uff0c\u5373\u53ef\u8bfb\u5199\u6a21\u5f0f\u3002\u5982\u679c\u6587\u4ef6\u6a21\u5f0f\u5728\u8c03\u7528Reset\u8fc7\u7a0b\u524d\u90fd\u8fd8\u672a\u6539\u53d8\uff0c\u5219\u5c1d\u8bd5\u6253\u5f00\u4e00\u4e2a\u53ea\u8bfb\u6587\u4ef6\u4f1a\u5931\u8d25\u3002\u5f53\u8c03\u7528Reset\u8fc7\u7a0b\u540e\uff0c\u5982\u679c\u6587\u4ef6\u4e3a\u7a7a\uff0c\u5219Eof\u51fd\u6570\u8fd4\u56deTrue\uff0c\u5426\u5219\u8fd4\u56deFalse\u3002<\/p>\n

1.5\u3001Rewrite\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u5bf9\u4e8e\u4e00\u4e2a\u5df2\u5b58\u5728\u7684\u6587\u4ef6\uff0c\u6b64\u64cd\u4f5c\u5c06\u4f7f\u6587\u4ef6\u88ab\u8986\u76d6\u3002\u5bf9\u4e8e\u4e00\u4e2a\u4e0d\u5b58\u5728\u7684\u6587\u4ef6\uff0c\u5c06\u521b\u5efa\u5e76\u6253\u5f00\u6587\u4ef6\u3002\u5bf9\u4e8e\u4e00\u4e2a\u5df2\u6253\u5f00\u7684\u6587\u4ef6\uff0c\u5219\u5173\u95ed\u6587\u4ef6\uff0c\u5e76\u91cd\u65b0\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u6587\u4ef6\uff08\u8986\u76d6\u539f\u6709\u7684\uff09\u3002\u6587\u4ef6\u6307\u9488\u4e5f\u88ab\u8bbe\u7f6e\u5230\u7a7a\u6587\u4ef6\u7684\u5f00\u5934\u5904\u3002
\n\u539f\u578b\uff1aprocedure Rewrite(var F: File [; Recsize: Word ] );
\nF\uff1aFile\u7c7b\u578b\u53d8\u91cf\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u6587\u4ef6\u7c7b\u578b\u3002
\nRecSize\uff1a\u6587\u4ef6\u7684\u5927\u5c0f\u3002\u5b83\u662f\u4e00\u4e2a\u53ef\u9009\u7684\u9009\u9879\uff0c\u53ea\u6709\u5f53F\u4e3a\u65e0\u7c7b\u578b\u6587\u4ef6\u65f6\u624d\u53ef\u4ee5\u88ab\u6307\u5b9a\u3002\u5982\u679cF\u4e3a\u65e0\u7c7b\u578b\u6587\u4ef6\uff0c\u5219RecSize\u6307\u5b9a\u4e86\u5728\u6570\u636e\u4f20\u8f93\u8fc7\u7a0b\u4e2d\u4f7f\u7528\u7684\u8bb0\u5f55\u7684\u5927\u5c0f\u3002\u5982\u679c\u53c2\u6570RecSize\u88ab\u7701\u7565\u4e86\uff0c\u5219\u9ed8\u8ba4\u7684\u8bb0\u5f55\u5927\u5c0f\u4e3a128\u5b57\u8282\u3002
\n\u6ce8\u610f\uff1a\u5982\u679cF\u88ab\u6307\u5b9a\u4e3a\u4e00\u4e2a\u7a7a\u7684\u6587\u4ef6\u540d\uff0c\u5982\uff1aAssignFile(F, \u2018\u2019)\uff0c\u90a3\u4e48\u5f53Rewrite\u8fc7\u7a0b\u88ab\u8c03\u7528\u65f6\uff0cF\u4e3a\u6807\u51c6\u7684\u8f93\u51fa\u6587\u4ef6\u3002\u5982\u679cF\u662f\u6587\u672c\u6587\u4ef6\uff0c\u5219F\u4e3a\u53ea\u5199\u6a21\u5f0f\u3002\u5f53\u8c03\u7528Rewrite\u8fc7\u7a0b\u540e\uff0cEof(F)\u5c06\u603b\u662f\u4e3aTrue\u3002<\/p>\n

1.6\u3001Flush\u51fd\u6570
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u6e05\u7a7a\u4ee5\u8f93\u51fa\u65b9\u5f0f\u6253\u5f00\u7684\u6587\u672c\u7f13\u51b2\u533a\uff0c\u4fdd\u8bc1\u6240\u6709\u5199\u5165\u7684\u5b57\u7b26\u5168\u90e8\u5199\u5165\u5916\u90e8\u6587\u4ef6\u3002
\n\u539f\u578b\uff1afunction Flush(var t: Text): Integer;
\nF\uff1aF\u662f\u6587\u672c\u7c7b\u578b\u53d8\u91cf\u3002
\n\u6ce8\u610f\uff1a\u672c\u51fd\u6570\u53ea\u4f7f\u7528\u4e8e\u6587\u672c\u6587\u4ef6\u7684\u5904\u7406\u3002\u5f53\u64cd\u4f5c\u6210\u529f\u65f6\uff0cFlush\u8fd4\u56de0\uff0c\u5426\u5219\uff0c\u5b83\u5c06\u8fd4\u56de\u9519\u8bef\u4ee3\u7801\u3002\u5f53\u4f7f\u7528Rewrite\u8fc7\u7a0b\u6216\u8005Append\u8fc7\u7a0b\u6253\u5f00\u4e00\u4e2a\u6587\u672c\u6587\u4ef6\u7528\u6765\u8f93\u51fa\u65f6\u3002Flush\u51fd\u6570\u7528\u4e8e\u6e05\u7a7a\u6587\u4ef6\u7684\u7f13\u51b2\u533a\u3002\u8fd9\u4e2a\u8fc7\u7a0b\u4fdd\u8bc1\u4e86\u7f13\u51b2\u533a\u7684\u4e2d\u7684\u6240\u6709\u5b57\u7b26\u90fd\u5df2\u7ecf\u5199\u5165\u5916\u90e8\u6587\u4ef6\u4e2d\u3002\u5bf9\u4e8e\u56e0\u4e3a\u8f93\u5165\u800c\u6253\u5f00\u7684\u6587\u4ef6\uff0cFlush\u51fd\u6570\u4e0d\u8d77\u4efb\u4f55\u4f5c\u7528\u3002<\/p>\n

1.7\u3001Read\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u4ece\u4e00\u4e2a\u6587\u4ef6\u4e2d\u8bfb\u53d6\u6570\u636e\u3002
\n\u539f\u578b\uff1aprocedure Read(F , V1 [, V2,…,Vn ] );
\nprocedure Read( [ var F: Text; ] V1 [, V2,…,Vn ] );
\nF\uff1a\u662f\u4e00\u4e2a\u6587\u4ef6\u53d8\u91cf\u3002
\nV1\u2026\u2026Vn\uff1a\u7528\u4e8e\u5b58\u50a8\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6\u7684\u6570\u636e\u3002
\n\u6ce8\u610f\uff1a\u5728Delphi\u4e2d\uff0cRead\u8fc7\u7a0b\u6709\u4e24\u79cd\u8bed\u6cd5\uff0c\u5982\u679c\u53c2\u6570F\u662f\u4e00\u4e2a\u6709\u7c7b\u578b\u6587\u4ef6\uff0c\u8fc7\u7a0bRead\u8bfb\u53d6\u4e00\u7ec4\u6570\u636e\u5230\u4e00\u4e2a\u53d8\u91cf\u4e2d\u3002\u5982\u679c\u53c2\u6570F\u662f\u4e00\u4e2a\u6587\u672c\u6587\u4ef6\u53d8\u91cf\uff0c\u8fc7\u7a0bRead\u8bfb\u53d6\u4e00\u4e2a\u6216\u591a\u4e2a\u503c\u5230\u4e00\u4e2a\u6216\u591a\u4e2a\u53d8\u91cf\u4e2d\u3002<\/p>\n

1.8\u3001ReadLn\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6\u4e00\u884c\u6587\u672c\u3002
\n\u539f\u578b\uff1aprocedure ReadLn([ var F: Text; ] V1 [, V2, …,Vn ]);
\nV\uff1a\u6587\u672c\u6587\u4ef6\u53d8\u91cf\u3002
\nV1\u2026\u2026V2\uff1a\u7528\u4e8e\u5b58\u50a8\u8bfb\u53d6\u7684\u6587\u672c\u3002
\n\u6ce8\u610f\uff1a\u5728Delphi\u4e2d\uff0cReadLn\u8fc7\u7a0b\u7528\u4e8e\u8bfb\u53d6\u6587\u672c\u6587\u4ef6\u7684\u4e00\u884c\u6587\u672c\uff0c\u5e76\u8df3\u81f3\u8be5\u6587\u672c\u6587\u4ef6\u7684\u4e0b\u4e00\u884c\u3002<\/p>\n

1.9\u3001Write\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u5411\u4e00\u4e2a\u6587\u672c\u6587\u4ef6\u5199\u5165\u6570\u636e\u3002
\n\u539f\u578b\uff1aprocedure Write( [var F: Text; ] P1 [ , P2,…, Pn] ); \/\/\u6587\u672c\u7c7b\u578b\u6587\u4ef6
\nprocedure Write(F, V1,\u2026Vn); \/\/\u6709\u7c7b\u578b\u6587\u4ef6
\nF\uff1a\u6587\u672c\u6587\u4ef6\u6bd4\u53d8\u91cf\u3002
\nP1\u2026\u2026Pn\uff1a\u4ee3\u8868\u5411\u6587\u4ef6\u4e2d\u5199\u5165\u7684\u6570\u636e\u3002
\n\u6ce8\u610f\uff1a\u5bf9\u4e8e\u6587\u672c\u6587\u4ef6\u6765\u8bf4\uff0c\u5199\u5165\u7684\u5185\u5bb9\u5e94String\u7c7b\u578b\u53d8\u91cf\u3002\u5bf9\u4e8e\u6709\u7c7b\u578b\u6587\u4ef6\u6765\u8bf4\uff0c\u5199\u5165\u7684\u5fc5\u987b\u662f\u67d0\u79cd\u7279\u5b9a\u7c7b\u578b\u7684\u6570\u636e\u3002<\/p>\n

1.10\u3001WriteLn\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u6765\u5411\u6587\u672c\u6587\u4ef6\u4e2d\u6dfb\u52a0\u4e00\u884c\u5185\u5bb9\uff0c\u5373\u5728\u5199\u5165\u5185\u5bb9\u540e\u9762\u6709\u56de\u8f66\u6362\u884c\u7b26\u3002
\n\u539f\u578b\uff1aprocedure WriteLn([ var F: Text; ] P1 [, P2, …,Pn ] );
\nF\uff1a\u6587\u672c\u6587\u4ef6\u6bd4\u53d8\u91cf\u3002<\/p>\n

1.11\u3001Eof\u51fd\u6570
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u5224\u65ad\u662f\u5426\u5230\u4e86\u6587\u4ef6\u7684\u7ed3\u5c3e\u3002
\n\u539f\u578b\uff1afunction Eof(var F): Boolean; \/\/\u7528\u4e8e\u7c7b\u578b\u6587\u4ef6\u548c\u65e0\u7c7b\u578b\u6587\u4ef6
\nfunction Eof [ (var F: Text) ]: Boolean; \/\/\u7528\u4e8e\u6587\u672c\u6587\u4ef6
\n\u5178\u578b\u5e94\u7528\uff1a\u5982\u679c\u6587\u4ef6\u4e3a\u7a7a\u6216\u5f53\u524d\u4f4d\u7f6e\u5728\u6700\u540e\u4e00\u4e2a\u5b57\u7b26\u540e\uff0c\u5219\u8fd4\u56deTrue\uff1b\u5426\u5219\uff0c\u8fd4\u56deFalse\u3002<\/p>\n

1.12\u3001Eoln\u51fd\u6570
\n\u4f5c\u7528\uff1a\u6d4b\u8bd5\u6587\u4ef6\u6307\u9488\u662f\u5426\u6307\u5411\u4e00\u884c\u7684\u6700\u540e\uff0c\u9002\u7528\u4e8e\u6587\u672c\u6587\u4ef6\u3002\u5982\u679c\u5f53\u524d\u7684\u4f4d\u7f6e\u5728\u4e00\u884c\u7684\u672b\u5c3e\u6216Eof(F)\u51fd\u6570\u8fd4\u56de\u7684\u662fTrue\uff0c\u5219Eoln\u8fd4\u56de\u7684\u662fTrue\uff1b\u5426\u5219\u8fd4\u56deFalse\u3002
\n\u539f\u578b\uff1afunction Eoln [(var F: Text) ]: Boolean;
\n\u5178\u578b\u5e94\u7528\uff1a\u5728\u7a0b\u5e8f\u4e2d\u5bf9\u6587\u672c\u6587\u4ef6\u8fdb\u884c\u64cd\u4f5c\u65f6\uff0c\u6709\u65f6\u9700\u8981\u9650\u5236\u6570\u636e\u7684\u8bfb\u53d6\u3002\u5982\u679c\u53ea\u8bfb\u53d6\u4e00\u884c\u4e2d\u67d0\u4e2a\u4f4d\u7f6e\u5230\u4e00\u884c\u7ed3\u675f\u7684\u90e8\u5206\u6570\u636e\u3002\u7a0b\u5e8f\u4e2d\u53ef\u4ee5\u4f7f\u7528Eoln\u51fd\u6570\u8fdb\u884c\u5224\u65ad\u3002<\/p>\n

1.13\u3001CloseFile\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u6765\u5173\u95ed\u6587\u4ef6\uff0c\u540c\u4e8b\u5c06\u6587\u4ef6\u8bb0\u5f55\u76d8\u4e0a\u7684\u6587\u4ef6\u4e0e\u76f8\u5173\u6587\u4ef6\u53d8\u91cf\u65ad\u5f00\u8054\u7cfb\u3002
\n\u539f\u578b\uff1aprocedure CloseFile(var F);
\nF\uff1a\u4e00\u4e2a\u6587\u4ef6\u7c7b\u578b\u53d8\u91cf
\n\u6ce8\u610f\uff1a\u901a\u5e38\u6765\u8bf4\uff0cCloseFile\u8fc7\u7a0b\u4e0etry\u2026finally\u2026\u6a21\u5757\u7ed3\u5408\u4f7f\u7528\u3002<\/p>\n

1.14\u3001DeleteFile\u51fd\u6570
\n\u4f5c\u7528\uff1a\u5c06\u4e00\u4e2a\u6587\u4ef6\u4ece\u8bb0\u5f55\u76d8\u4e0a\u5220\u9664\u3002
\n\u539f\u578b\uff1afunction DeleteFile(const FileName: string): Boolean;
\n\u6ce8\u610f\uff1a\u5982\u679c\u6587\u4ef6\u4e0d\u5b58\u5728\u6216\u65e0\u6cd5\u5220\u9664\uff0c\u8fd4\u56deFalse\uff1b\u5426\u5219\uff0c\u8fd4\u56deTrue\u3002<\/p>\n

1.15\u3001Erase\u8fc7\u7a0b
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u5220\u9664\u4e00\u4e2a\u5df2\u5b58\u5728\u7684\u6587\u4ef6\u3002
\n\u539f\u578b\uff1aprocedure Erase(var F);
\n\u6ce8\u610f\uff1a\u5982\u679c\u6587\u4ef6\u88ab\u6253\u5f00\uff0c\u5148\u5173\u95ed\u6587\u4ef6\u518d\u6267\u884c\u5220\u9664\u64cd\u4f5c\u3002<\/p>\n

1.16\u3001FileGetAttr\u51fd\u6570
\n\u4f5c\u7528\uff1a\u7528\u4e8e\u83b7\u53d6\u4e00\u4e2a\u6587\u4ef6\u7684\u5c5e\u6027\u8bbe\u7f6e\u3002
\n\u539f\u578b\uff1afunction FileGetAttr(const FileName: string): Integer;
\n\u6ce8\u610f\uff1a\u5177\u4f53\u8fd4\u56de\u503c\u4ee3\u7801\u53c2\u8003\u5e2e\u52a9\u3002<\/p>\n

\u4e0b\u9762\u6211\u4eec\u6765\u603b\u7ed3\u4e00\u4e0bDelphi\u4e2d\u6587\u4ef6\u64cd\u4f5c\u6d41\u7a0b\u3002Delphi\u4e2d\u628a\u6587\u4ef6\u5206\u4e3a3\u79cd\uff1a\u6587\u672c\u6587\u4ef6\u3001\u7c7b\u578b\u6587\u4ef6\u548c\u65e0\u7c7b\u578b\u6587\u4ef6\u3002\u6587\u672c\u6587\u4ef6\u6307\u53ef\u4ee5\u88ab\u4efb\u610f\u6587\u4ef6\u7f16\u8f91\u5668\u8bfb\u53d6\u7684ASCII\u6587\u4ef6\u3002\u7c7b\u578b\u6587\u4ef6\u5305\u542b\u7531\u7a0b\u5e8f\u5458\u5b9a\u4e49\u7684\u6570\u636e\u7c7b\u578b\u7684\u6587\u4ef6\u3002\u65e0\u7c7b\u578b\u6587\u4ef6\u5305\u542b\u4e86\u5176\u4ed6\u6240\u6709\u7684\u6587\u4ef6\u7c7b\u578b\u3002<\/p>\n

1\u3001\u6587\u672c\u6587\u4ef6
\nStep 1 \u8c03\u7528AssignFile()\u5c06\u6587\u4ef6\u53d8\u91cf\u4e0e\u4e00\u4e2a\u5173\u8054\u8d77\u6765\u3002\u5982\uff1a
\nAssignFile(MyTextFile\uff0c\u2019TextFile.txt\u2019);
\nStep 2 \u6253\u5f00\u6587\u4ef6\u3002\u6709\u4e09\u79cd\u6253\u5f00\u6587\u4ef6\u7684\u65b9\u5f0f\uff1a1.Rewrite\u8fc7\u7a0b\u521b\u5efa\u5e76\u6253\u5f00\u6587\u4ef6\uff0c\u5bf9\u4e8e\u4e00\u4e2a\u5df2\u7ecf\u5b58\u5728\u7684\u6587\u4ef6\uff0c\u6b64\u64cd\u4f5c\u5c06\u4f7f\u6587\u4ef6\u88ab\u8986\u76d6\uff1b2.\u4f7f\u7528Reset\u8fc7\u7a0b\u53ea\u8bfb\u5730\u6253\u5f00\u4e00\u4e2a\u6587\u4ef6\uff1b3.\u4f7f\u7528Append\u8fc7\u7a0b\u5411\u5df2\u7ecf\u5b58\u5728\u7684\u6587\u672c\u6587\u4ef6\u8ffd\u52a0\u6587\u672c\u3002
\nStep 3 \u5bf9\u6587\u4ef6\u8fdb\u884c\u64cd\u4f5c\u3002\u5982Write\u6216Read\u64cd\u4f5c\u3002
\nStep 4 \u4f7f\u7528CloseFile\u6765\u5173\u95ed\u4e00\u4e2a\u5df2\u7ecf\u6253\u5f00\u7684\u6587\u4ef6\u3002
\n\u4e0b\u9762\u662f\u4e00\u4e2a\u6587\u672c\u6587\u4ef6\u64cd\u4f5c\u7684\u793a\u4f8b\u3002<\/p>\n

\u4f8b1\uff1a<\/p>\n

\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n   MyTextFile: TextFile;       \/\/\u5b9a\u4e49\u53d8\u91cfMyTextFile\u4e3a\u6587\u672c\u6587\u4ef6\u7c7b\u578b\r\nbegin\r\n   (*\u6b65\u9aa41\uff0c\u5c06\u6587\u4ef6\u53d8\u91cf\u4e0e\u5916\u90e8\u6587\u4ef6\u8054\u7cfb\u3002\u76f8\u5f53\u4e8e\u4e3a\u5916\u90e8\u6587\u4ef6\u627e\u4e86\u4e2a\u201c\u66ff\u8eab\u201d*)\r\n   AssignFile(MyTextFile, \u2018TextFile.txt\u2019);\r\n   (*\u5224\u65ad\u64cd\u4f5c\u7684\u6587\u4ef6\u662f\u5426\u5b58\u5728\uff0c\u4e0d\u5b58\u5728\u5219\u521b\u5efa\u6587\u4ef6\u3002*)\r\n   if FileExists(\u2018TextFile.txt\u2019) then\r\n   (*\u6b65\u9aa42\uff0c\u6253\u5f00\u6587\u4ef6\uff0c\u4e0d\u8fc7\u5728\u6253\u5f00\u524d\uff0c\u6700\u597d\u8fdb\u884c\u6587\u4ef6\u662f\u5426\u5b58\u5728\u7684\u5224\u65ad\u3002*)\r\nAppend(MyTextFile)\r\n   else\r\nRewrite(MyTextFile);\r\n   try\r\n   (*\u6b65\u9aa43\uff0c\u5bf9\u6587\u4ef6\u8fdb\u884c\u64cd\u4f5c\u3002*)\r\nWrtieLn(MyTextFile, \u2018\u5728\u6587\u4ef6\u672b\u5c3e\u6dfb\u52a0\u7684\u6587\u5b57!\u2019);\r\nFlush(MyTextFile);     \/\/\u6e05\u7a7a\u7f13\u51b2\u533a\uff0c\u786e\u4fdd\u5b57\u7b26\u4e32\u5df2\u7ecf\u5199\u5165\u6587\u4ef6\u4e4b\u4e2d\u3002\r\n   finally\r\n(*\u6b65\u9aa44\uff0c\u5173\u95ed\u6253\u5f00\u7684\u6587\u4ef6\uff0cCloseFile\u5e38\u4e0etry\u2026finally\u642d\u914d\uff0c\u7528\u4e8e\u56de\u6536\u8d44\u6e90 *)\r\nCloseFile(MyTextFile);\r\n   end;\r\nend;\r\n<\/pre>\n
2\u3001\u7c7b\u578b\u6587\u4ef6
\nStep 1 \u5b9a\u4e49\u6570\u636e\u7ed3\u6784
\nStep 2 \u8c03\u7528AssignFile()\u5c06\u6587\u4ef6\u53d8\u91cf\u4e0e\u4e00\u4e2a\u7c7b\u578b\u6587\u4ef6\u5173\u8054\u8d77\u6765\u3002
\nStep 3 \u6253\u5f00\u7c7b\u578b\u6587\u4ef6\u3002
\nStep 4 \u5bf9\u7c7b\u578b\u6587\u4ef6\u8fdb\u884c\u64cd\u4f5c\u3002
\nStep 5 \u5173\u95ed\u5df2\u7ecf\u6253\u5f00\u7684\u6587\u4ef6\u3002
\n\u4e0b\u9762\u4f8b\u5b50\u6f14\u793a\u4e86\u7c7b\u578b\u6587\u4ef6\u7684\u64cd\u4f5c\u3002<\/p>\n
\u4f8b2\uff1a<\/p>\n
\r\n(*\u6b65\u9aa41\uff0c\u5b9a\u4e49\u6570\u636e\u7ed3\u6784\u3002*)\r\ntype\r\n   TPerson = record\r\nName: string[20];\r\nSex: string[4]\r\nAge: Integer;\r\n   End;\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n   PersonFile: file of TPerson;     \/\/\u58f0\u660ePersonFile\u53d8\u91cf\u4e3aTPerson\u7c7b\u578b\u6587\u4ef6\r\n   Person: TPerson;\r\nbegin\r\n   (*\u6b65\u9aa42\uff0c\u5173\u8054\u6587\u4ef6\u3002*)\r\n   AssignFile(PersonFile, \u2018Person.dat\u2019);\r\n   (*\u6b65\u9aa43\uff0c\u6253\u5f00\u6587\u4ef6\u3002 *)\r\n   Reset(PersonFile);\r\n   try\r\nWhile not Eof(PersonFile) do\r\n   (*\u6b65\u9aa44\uff0c\u5bf9\u6587\u4ef6\u8fdb\u884c\u64cd\u4f5c\u3002*)\r\nbegin\r\n   Read(PersonFile, Person);\r\n   Memo1.Lines.Add(Person.Name);\r\n   Memo1.Lines.Add(Person.Sex);\r\n   Memo1.Lines.Add(IntToStr(Person.Age));\r\nend;\r\n   finally\r\n(*\u6b65\u9aa45\uff0c\u5173\u95ed\u6587\u4ef6\u3002*)\r\nCloseFile(PersonFile);\r\n   end;\r\nend;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u6587\u4ef6\u662f\u540c\u4e00\u79cd\u7c7b\u578b\u5143\u7d20\u7684\u6709\u5e8f\u96c6\u5408\uff0c\u662f\u5185\u5b58\u4e0e\u5916\u8bbe\u4e4b\u95f4\u4f20\u8f93\u6570\u636e\u7684\u6e20\u9053\u3002\u6587\u4ef6\u7684\u672c\u8d28\u662f\u4e00\u4e2a\u6570\u636e\u6d41\uff0c\u6240\u6709\u7684\u6587\u4ef6\u5b9e\u9645\u4e0a\u662f\u4e00\u4e32 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-468","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/468","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=468"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/468\/revisions"}],"predecessor-version":[{"id":4745,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/468\/revisions\/4745"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=468"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=468"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=468"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}