소스 검색

* 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;
 
 constructor THTMLLinkScanDocument.Load(var S: TStream);
+var
+  i: sw_integer;
 begin
   inherited Init;
   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));
 end;
 
@@ -613,7 +619,10 @@ end;
 END.
 {
   $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
       these allow to eliminate double index entries pointing to the same
       html file location (which had two different names).