{"id":136,"date":"2022-09-04T17:19:23","date_gmt":"2022-09-04T08:19:23","guid":{"rendered":"https:\/\/notes.sys-support.jp\/?p=136"},"modified":"2022-09-04T17:19:23","modified_gmt":"2022-09-04T08:19:23","slug":"delphi%e3%83%bb%e3%83%a1%e3%82%bd%e3%83%83%e3%83%89","status":"publish","type":"post","link":"https:\/\/notes.sys-support.jp\/?p=136","title":{"rendered":"Delphi\u30fb\u30e1\u30bd\u30c3\u30c9"},"content":{"rendered":"

\u3010\u30d5\u30a1\u30a4\u30eb\u95a2\u9023\u30e1\u30bd\u30c3\u30c9\u3011
\n\u25a0FileExists
\n\u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u30c1\u30a7\u30c3\u30af
\nif FileExists(edtPath.Text) then \/\/\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308c\u3070True<\/p>\n

\u25a0CopyFile
\n\u30d5\u30a1\u30a4\u30eb\u306e\u30b3\u30d4\u30fc
\nCopyFile(PChar(sFromName), PChar(sToName), bExist)
\n\u3000sFromName \u30b3\u30d4\u30fc\u5143\u30d5\u30a1\u30a4\u30eb
\n\u3000sToName \u30b3\u30d4\u30fc\u5148\u30d5\u30a1\u30a4\u30eb
\n\u3000bExist \u30b3\u30d4\u30fc\u5148\u306b\u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u6642\u306e\u51e6\u7406
\n\u3000\uff08true:\u7570\u5e38\u7d42\u4e86\u3057\u30b3\u30d4\u30fc\u3057\u306a\u3044\u3001false:\u6b63\u5e38\u7d42\u4e86\u3057\u4e0a\u66f8\u304d\u30b3\u30d4\u30fc<\/p>\n

\u25a0DeleteFile
\n\u30d5\u30a1\u30a4\u30eb\u306e\u524a\u9664
\nDeleteFile(const FileName: string)<\/p>\n

\u25a0ChangeFileExt
\n\u30d5\u30a1\u30a4\u30eb\u306e\u62e1\u5f35\u5b50\u5909\u66f4
\n\u5358\u7d14\u306b\u62e1\u5f35\u5b50\u3092\u5909\u66f4\u3059\u308b\u3060\u3051\u306a\u3089\u3053\u308c\u304c\u4fbf\u5229\u3002
\n\u4f8b\uff09
\nsFilename := ‘abc.txt’;
\nsChgExt := ‘csv’;
\nsWk := ChangeFileExt(sFilename, sChgExt); \u2192sWk\u306e\u4e2d\u8eab ‘abc.csv’<\/p>\n

\u25a0ExtractFileDir
\nFileName \u306e\u30c9\u30e9\u30a4\u30d6\u90e8\u5206\u3068\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u90e8\u5206\u3092\u8fd4\u5374
\n\u4f8b\uff09
\nsFile := ‘C:\\dir\\test.txt’;
\nsWk := ExtractFileDir(sFile); \/\/sWk : ‘C:\\dir\\’<\/p>\n

\u25a0ExtractFileDrive
\n\u30d5\u30a1\u30a4\u30eb\u540d\u304b\u3089\u30c9\u30e9\u30a4\u30d6\u90e8\u5206\u3092\u8fd4\u5374
\n\u4f8b\uff09
\nsFile := ‘C:\\dir\\test.txt’;
\nsWk := ExtractFileDrive(sFile); \/\/sWk : ‘C:\\’<\/p>\n

\u25a0ExtractFilePath
\n\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u30d1\u30b9\u90e8\u5206\u3092\u8fd4\u5374
\n\u4f8b\uff09
\nsFile := ‘C:\\dir\\test.txt’;
\nsWk := ExtractFilePath(sFile); \/\/sWk : ‘C:\\dir\\’<\/p>\n

\u25a0ExtractFileName
\n\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u540d\u524d\u90e8\u5206\u3068\u62e1\u5f35\u5b50\u90e8\u5206\u3092\u8fd4\u5374
\n\uff08\uff1d\u30d5\u30eb\u30d1\u30b9\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u90e8\u5206\u3060\u3051\u3092\u8fd4\u3059\uff09
\n\u4f8b\uff09
\nsFile := ‘C:\\dir\\test.txt’;
\nsWk := ExtractFileName(sFile); \/\/sWk : ‘test.txt’<\/p>\n

\u25a0ExtractFileExt
\n\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u62e1\u5f35\u5b50\u90e8\u5206\u3092\u8fd4\u3057\u307e\u3059\u3002
\n\u4f8b\uff09
\nsFile := ‘C:\\dir\\test.txt’;
\nsWk := ExtractFileExt(sFile); \/\/sWk : ‘.stxt’<\/p>\n

\u3010\u30d5\u30a9\u30eb\u30c0\u95a2\u9023\u30e1\u30bd\u30c3\u30c9\u3011
\n\u25a0DirectoryExists(Name: string): Boolean;
\n\u30d5\u30a9\u30eb\u30c0\u5b58\u5728\u30c1\u30a7\u30c3\u30af
\n\u5b58\u5728\u3059\u308c\u3070true<\/p>\n

\u25a0MkDir(S: string);
\n\u30d5\u30a9\u30eb\u30c0\u4f5c\u6210
\n\/\/\u30d5\u30a9\u30eb\u30c0\u304c\u5b58\u5728\u3057\u306a\u3051\u308c\u3070\u4f5c\u6210
\nif not DirectoryExists(sTmpDirName) then
\n MkDir(sTmpDirName);<\/p>\n

\u25a0RmDir(S: string);
\n\u30d5\u30a9\u30eb\u30c0\u524a\u9664
\nRmDir(sTmpDirName); \/\/\uff8c\uff6b\uff99\uff80\uff9e\u3092\u524a\u9664
\n\u203b\u5fc5\u305a\u5b58\u5728\u30c1\u30a7\u30c3\u30af(DirectoryExists)\u5f8c\u306b\u884c\u3046\u3002<\/p>\n

\u3010Tips\u3011
\n\u25a0\u30d5\u30a1\u30a4\u30eb\u540d\u304b\u3089\u62e1\u5f35\u5b50\u3092\u524a\u9664\u3057\u3066\u9593\u306b\u6587\u5b57\u5217\u3092\u5165\u308c\u3001\u5225\u306e\u62e1\u5f35\u5b50\u306b\u5909\u63db\u3059\u308b
\nfilename := ExtractFileName(copyFile);
\nfilenameNoext := Copy(filename, 0, (Pos(‘.’, filename) – 1)); \/\/\u62e1\u5f35\u5b50\u9664\u53bb
\nbkupFile := bkupDir + filenameNoext + ‘_’ + sDay + ‘.txt’;<\/p>\n

\u25a0\u62e1\u5f35\u5b50\u3092\u9664\u53bb
\nfilenameNoext := Copy(FileNM, 0, (Pos(‘.’, filename) – 1)); \/\/\u62e1\u5f35\u5b50\u9664\u53bb<\/p>\n

\u25a0\u30d5\u30a1\u30a4\u30eb\u4e00\u62ec\u524a\u9664
\nprocedure deleteXls;
\nvar
\nsrcRc: TSearchRec;
\ni: integer;
\nbFlg: boolean;
\nbegin
\n \/\/\u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u30c1\u30a7\u30c3\u30af
\n if FindFirst(‘C:\\dir\\*.XLS’, faAnyFile, srcRc) = 0 then
\n begin
\n repeat
\n DeleteFile(‘C:\\dir\\’ + srcRc.Name);
\n i := FindNext(srcRc); \/\/\u6b21\u3092\u691c\u7d22
\n until not i = 0
\n end;
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"

\u3010\u30d5\u30a1\u30a4\u30eb\u95a2\u9023\u30e1\u30bd\u30c3\u30c9\u3011 \u25a0FileExists \u30d5\u30a1\u30a4\u30eb\u5b58\u5728\u30c1\u30a7\u30c3\u30af if FileExists(edtPath.Text) then \/\/\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308c\u3070True \u25a0CopyFile \u30d5\u30a1\u30a4\u30eb\u306e\u30b3\u30d4\u30fc CopyF … <\/p>\n

“Delphi\u30fb\u30e1\u30bd\u30c3\u30c9” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[2],"tags":[],"class_list":["post-136","post","type-post","status-publish","format-standard","hentry","category-delphi"],"_links":{"self":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/136","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=136"}],"version-history":[{"count":1,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/136\/revisions"}],"predecessor-version":[{"id":137,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/136\/revisions\/137"}],"wp:attachment":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=136"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=136"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=136"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}