Delphi Drawers

パスからフォルダパスを取得

ファイルパスからフォルダパスを抽出します。

function fnGetFolderPathByFilePath(strPath:string):string;
begin
  strPath := StringReplace(strPath, '/', '\', [rfReplaceAll]);
  strPath := ExtractFilePath(strPath);
  fnGetFolderPathByFilePath := strPath;
end;

[] [delphi][0.00216889381408691]