delphi 格式化路径分割符

// 格式化路径分割符,比如\写成/

function FormatPath(QPath: string): string;
var
  lSeparatorChar: string;
  lReplaceChar: string;
begin
  lSeparatorChar := TPath.DirectorySeparatorChar;
  lReplaceChar := '/';
  if lSeparatorChar = '/' then
  begin
    lReplaceChar := '\';
  end;
  QPath := QPath.Replace(lReplaceChar, lSeparatorChar);
end;