Browse Source

* try to adapt .htx files to system DirSep

pierre 23 years ago
parent
commit
4243aa7559
1 changed files with 10 additions and 1 deletions
  1. 10 1
      ide/whtmlscn.pas

+ 10 - 1
ide/whtmlscn.pas

@@ -254,9 +254,15 @@ begin
 end;
 end;
 
 
 constructor THTMLLinkScanDocument.Load(var S: TStream);
 constructor THTMLLinkScanDocument.Load(var S: TStream);
+var
+  i: sw_integer;
 begin
 begin
   inherited Init;
   inherited Init;
   DocName:=S.ReadStr;
   DocName:=S.ReadStr;
+  if assigned(DocName) then
+    for i:=1 to Length(DocName^) do
+      if (DocName^[i]='\') or  (DocName^[i]='/') then
+        DocName^[i]:=DirSep;
   New(Aliases, Load(S));
   New(Aliases, Load(S));
 end;
 end;
 
 
@@ -613,7 +619,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-04-23 09:55:22  pierre
+  Revision 1.4  2002-04-23 10:11:31  pierre
+   * try to adapt .htx files to system DirSep
+
+  Revision 1.3  2002/04/23 09:55:22  pierre
     + added lastsynonym and InNameAnchor fields to TCustomHTMLLinkScanner
     + added lastsynonym and InNameAnchor fields to TCustomHTMLLinkScanner
       these allow to eliminate double index entries pointing to the same
       these allow to eliminate double index entries pointing to the same
       html file location (which had two different names).
       html file location (which had two different names).