|
@@ -157,8 +157,12 @@ begin
|
|
else
|
|
else
|
|
FixFileName[i]:=s[i];
|
|
FixFileName[i]:=s[i];
|
|
{$else}
|
|
{$else}
|
|
|
|
+ {$ifndef hasamiga}
|
|
'/' : FixFileName[i]:='\';
|
|
'/' : FixFileName[i]:='\';
|
|
'A'..'Z' : FixFileName[i]:=char(byte(s[i])+32);
|
|
'A'..'Z' : FixFileName[i]:=char(byte(s[i])+32);
|
|
|
|
+ {$else}
|
|
|
|
+ '\' : FixFileName[i]:='/';
|
|
|
|
+ {$endif}
|
|
{$endif}
|
|
{$endif}
|
|
else
|
|
else
|
|
FixFileName[i]:=s[i];
|
|
FixFileName[i]:=s[i];
|