diff --git a/components/rx/rxfileutils.pas b/components/rx/rxfileutils.pas index fb09b865d..0a1a3e658 100644 --- a/components/rx/rxfileutils.pas +++ b/components/rx/rxfileutils.pas @@ -9,6 +9,7 @@ uses function GetFileOwnerUser(const SearchDomain, FileName:String):String; procedure GetFileOwnerData(const SearchDomain, FileName:String;out UserName, DomainName:string); +function NormalizeDirectoryName(const DirName:string):string; implementation uses {$IFDEF WINDOWS} @@ -127,5 +128,16 @@ begin {$ENDIF} end; +{replase any dir separators '\' or '/' to system directory separator } +function NormalizeDirectoryName(const DirName: string): string; +var + i:integer; +begin + Result:=DirName; + for i:=1 to Length(Result) do + if Result[i] in ['/', '\'] then + Result[i]:=DirectorySeparator; +end; + end.