現在のパスに関連するいくつかの新しい関数

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;