mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 17:59:25 +02:00
* try to adapt .htx files to system DirSep
This commit is contained in:
parent
63ec8ab5bf
commit
4243aa7559
@ -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).
|
||||
|
Loading…
Reference in New Issue
Block a user