Explorar o código

+ Lookup using string, not widestring

michael %!s(int64=21) %!d(string=hai) anos
pai
achega
d7b63f9440
Modificáronse 1 ficheiros con 10 adicións e 5 borrados
  1. 10 5
      utils/fpdoc/dw_html.pp

+ 10 - 5
utils/fpdoc/dw_html.pp

@@ -1686,7 +1686,7 @@ Procedure THTMLWriter.AppendSeeAlsoSection(AElement : TPasElement;DocNode : TDoc
 var
 var
   Node: TDOMNode;
   Node: TDOMNode;
   TableEl, El, TREl, TDEl, ParaEl, NewEl, DescrEl: TDOMElement;
   TableEl, El, TREl, TDEl, ParaEl, NewEl, DescrEl: TDOMElement;
-  s: String;
+  l,s: String;
   f: Text;
   f: Text;
   IsFirstSeeAlso : Boolean;
   IsFirstSeeAlso : Boolean;
   
   
@@ -1708,16 +1708,18 @@ begin
        El:=TDOMElement(Node);
        El:=TDOMElement(Node);
        TREl:=CreateTR(TableEl);
        TREl:=CreateTR(TableEl);
        ParaEl:=CreatePara(CreateTD_vtop(TREl));
        ParaEl:=CreatePara(CreateTD_vtop(TREl));
-       s:= ResolveLinkID(El['id']);
+       l:=El['id'];
+       s:= ResolveLinkID(l);
        if Length(s)=0 then
        if Length(s)=0 then
          begin
          begin
-         WriteLn(Format(SErrUnknownLinkID, [El['id']]));
+         WriteLn(Format(SErrUnknownLinkID, [l]));
          NewEl := CreateEl(ParaEl,'b')
          NewEl := CreateEl(ParaEl,'b')
          end 
          end 
        else
        else
          NewEl := CreateLink(ParaEl,s);
          NewEl := CreateLink(ParaEl,s);
        AppendText(NewEl,El['id']);
        AppendText(NewEl,El['id']);
-       DescrEl := Engine.FindShortDescr(AElement.GetModule, El['id']);
+       l:=El['id'];
+       DescrEl := Engine.FindShortDescr(AElement.GetModule,L);
        if Assigned(DescrEl) then
        if Assigned(DescrEl) then
          begin
          begin
          AppendNbSp(CreatePara(CreateTD(TREl)), 2);
          AppendNbSp(CreatePara(CreateTD(TREl)), 2);
@@ -2802,7 +2804,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.8  2004-08-28 18:04:49  michael
+  Revision 1.9  2004-08-31 09:40:05  michael
+  + Lookup using string, not widestring
+
+  Revision 1.8  2004/08/28 18:04:49  michael
   + Added context to topic pages
   + Added context to topic pages
 
 
   Revision 1.7  2004/07/25 22:40:13  michael
   Revision 1.7  2004/07/25 22:40:13  michael