|
@@ -424,6 +424,9 @@ begin
|
|
|
Result:=Path;
|
|
|
l:=Length(Result);
|
|
|
If (L=0) or not CharInSet(Result[l],AllowDirectorySeparators) then
|
|
|
+{$if defined(Amiga) or defined(AROS) or defined(MorphOS)}
|
|
|
+ If (L>0) and (Result[l] <> DriveSeparator) then
|
|
|
+{$endif}
|
|
|
{$ifdef SYSUTILSUNICODE}
|
|
|
Result:=Result+DirectorySeparator;
|
|
|
{$else SYSUTILSUNICODE}
|