|
@@ -85,19 +85,12 @@ begin
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
-const
|
|
|
|
|
-{$IFDEF LINUX}
|
|
|
|
|
- PathCh='/';
|
|
|
|
|
-{$ELSE}
|
|
|
|
|
- PathCh='\';
|
|
|
|
|
-{$ENDIF}
|
|
|
|
|
-
|
|
|
|
|
Function SplitPath(Const HStr:String):String;
|
|
Function SplitPath(Const HStr:String):String;
|
|
|
var
|
|
var
|
|
|
- i : byte;
|
|
|
|
|
|
|
+ i : longint;
|
|
|
begin
|
|
begin
|
|
|
i:=Length(Hstr);
|
|
i:=Length(Hstr);
|
|
|
- while (i>0) and (Hstr[i]<>PathCh) do
|
|
|
|
|
|
|
+ while (i>0) and not(Hstr[i] in ['\','/']) do
|
|
|
dec(i);
|
|
dec(i);
|
|
|
SplitPath:=Copy(Hstr,1,i);
|
|
SplitPath:=Copy(Hstr,1,i);
|
|
|
end;
|
|
end;
|
|
@@ -260,7 +253,13 @@ begin
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.1 2000-07-13 10:16:22 michael
|
|
|
|
|
|
|
+ Revision 1.2 2000-11-06 13:16:19 michael
|
|
|
|
|
+ + merged fixes from Peter
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.1.2.1 2000/11/06 13:14:48 michael
|
|
|
|
|
+ + Fixes from Peter for slashes in filenames
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.1 2000/07/13 10:16:22 michael
|
|
|
+ Initial import
|
|
+ Initial import
|
|
|
|
|
|
|
|
Revision 1.4 2000/07/04 19:05:54 peter
|
|
Revision 1.4 2000/07/04 19:05:54 peter
|
michael