pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

new function - NormalizeDirectoryName

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-01-31 22:41:34 +00:00
parent e5deae64c9
commit 22cdfc0574
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/rxfileutils.pas
View File

@ -9,6 +9,7 @@ uses
function GetFileOwnerUser(const SearchDomain, FileName:String):String; function GetFileOwnerUser(const SearchDomain, FileName:String):String;
procedure GetFileOwnerData(const SearchDomain, FileName:String;out UserName, DomainName:string); procedure GetFileOwnerData(const SearchDomain, FileName:String;out UserName, DomainName:string);
function NormalizeDirectoryName(const DirName:string):string;
implementation implementation
uses uses
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
@ -127,5 +128,16 @@ begin
{$ENDIF} {$ENDIF}
end; 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. end.