路徑自動加分隔符號/倒斜線

System.SysUtils

//
function IncludeTrailingBackslash(const S: string): string;
begin
  Result := IncludeTrailingPathDelimiter(S);
end;

//
function IncludeTrailingPathDelimiter(const S: string): string;
begin
  Result := S;
  if not IsPathDelimiter(Result, High(Result)) then
    Result := Result + PathDelim;
end;