diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 5c3c7ba57a48fec14645c3e74b1d88f769f1bb45..0ac5caa00f15004d8f7901fa99eadf36f966712c 100644 (file)
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
function setFilenameExt (const fn, ext: AnsiString): AnsiString;
function forceFilenameExt (const fn, ext: AnsiString): AnsiString;
+// rewrites slashes to '/'
+function fixSlashes (s: AnsiString): AnsiString;
+
// strips out name from `fn`, leaving trailing slash
function getFilenamePath (const fn: AnsiString): AnsiString;
end;
+// ////////////////////////////////////////////////////////////////////////// //
+// rewrites slashes to '/'
+function fixSlashes (s: AnsiString): AnsiString;
+var
+ f: Integer;
+begin
+ result := s;
+ for f := 1 to length(result) do if (result[f] = '\') then result[f] := '/';
+end;
+
+
// ////////////////////////////////////////////////////////////////////////// //
constructor TSimpleList.TEnumerator.Create (const aitems: TItemArr; acount: Integer);
begin