現在のパスに関連するいくつかの新しい関数
1365 ワード
偶然SysUtilsからいくつかのパスに関する関数が見つかりましたが、以前は見たことがありません.2010年に追加されたのかもしれません.
適用テスト:
GetLocaleDirectory();
GetLocaleFile();
LocaleDirectoryExists();
LocaleFileExists();
適用テスト:
uses IOUtils;
procedure TForm1.FormCreate(Sender: TObject);
var
p,f: string;
b: Boolean;
begin
{ }
SetCurrentDir('C:\Temp\');
ShowMessage(GetCurrentDir); { C:\Temp }
{ }
p := GetLocaleDirectory('ABC');
ShowMessage(p); { C:\Temp\ABC\ }
{ }
f := GetLocaleFile('X.txt');
ShowMessage(f); { C:\Temp\X.txt }
f := GetLocaleFile('ABC\X.txt');
ShowMessage(f); { C:\Temp\ABC\X.txt }
{IOUtils TPath }
f := TPath.GetFullPath('X.txt');
ShowMessage(f); { C:\Temp\X.txt }
f := TPath.GetFullPath('ABC\X.txt');
ShowMessage(f); { C:\Temp\ABC\X.txt }
{ }
b := LocaleDirectoryExists('ABC'); // : DirectoryExists(GetCurrentDir + '\ABC');
b := LocaleFileExists('X.txt'); // : FileExists(GetCurrentDir + '\X.txt');
end;