浏览代码

* try to adapt .htx files to system DirSep

pierre 23 年之前
父节点
当前提交
4243aa7559
共有 1 个文件被更改,包括 10 次插入1 次删除
  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).