paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* try to adapt .htx files to system DirSep

Browse Source
This commit is contained in:
pierre 2002-04-23 10:11:31 +00:00
parent 63ec8ab5bf
commit 4243aa7559
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/whtmlscn.pas
View File

@ -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).