Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4.2.3 by h677, Mon Oct 31 15:42:55 2005 UTC revision 1.4.2.4 by h677, Mon Oct 31 16:05:24 2005 UTC
# Line 322  const Line 322  const
322          FORMAT_LINK = '<a href="../test/read.cgi?%s=%s&%s=%s&%s=%s&%s=%s&%s=%s" target="_blank">';          FORMAT_LINK = '<a href="../test/read.cgi?%s=%s&%s=%s&%s=%s&%s=%s&%s=%s" target="_blank">';
323  var  var
324          i : integer;          i : integer;
325          s,r : string;          s{,r} : string;
326          b : TMbcsByteType;          b : TMbcsByteType;
327          sw: boolean;          sw: boolean;
328          sp: integer;          sp: integer;
# Line 359  var Line 359  var
359  begin  begin
360          { v1.0 b2 - 03 }          { v1.0 b2 - 03 }
361          s        :=     Body;          s        :=     Body;
362          r        :=     Body;          Result   :=     Body;
363          i        :=     1;          i        :=     1;
364          sw      :=      False;          sw      :=      False;
365          No      :=      '';          No      :=      '';
# Line 419  begin Line 419  begin
419                                                          al := True;                                                          al := True;
420                                                  end;                                                  end;
421                                                  sw      :=      False;                                                  sw      :=      False;
422                                                  //                                                  Dec(i);
423                                                  i := i - 1;                                                  i := i - 1;
                                                 //  
424                                                  No      := '';                                                  No      := '';
425                                                  oc:='';                                                  oc:='';
                                                 //chk :=        False;  
426                                          end;                                          end;
427                                  end else begin                                  end else begin
428                                          if      Copy(s,i,1) = '<' then  begin                                          if      Copy(s,i,1) = '<' then  begin
# Line 479  begin Line 477  begin
477          for i :=        List.Count - 1  downto  0 do    begin          for i :=        List.Count - 1  downto  0 do    begin
478                  separateNumber(st, et, PIndex(List[i]).FNo, '-');                  separateNumber(st, et, PIndex(List[i]).FNo, '-');
479                  if not DatToHTML then                  if not DatToHTML then
480                  r :=    Copy(r,0, PIndex(List[i]).FIndexFrom - 1) +                  Result :=       Copy(Result,1, PIndex(List[i]).FIndexFrom - 1) +
481                                          Format(FORMAT_LINK, [ParamBBS, Bbs, ParamKey, Key, ParamStart, st, ParamTo, et, ParamNoFirst, ParamTrue]) +                                          Format(FORMAT_LINK, [ParamBBS, Bbs, ParamKey, Key, ParamStart, st, ParamTo, et, ParamNoFirst, ParamTrue]) +
482                                          Copy(r,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +                                          Copy(Result,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +
483                                          Copy(r,PIndex(List[i]).FIndexTo,Length(r))                                          Copy(Result,PIndex(List[i]).FIndexTo,Length(Result))
484                  else                  else
485                  r :=    Copy(r,0, PIndex(List[i]).FIndexFrom - 1) +                  Result :=       Copy(Result,1, PIndex(List[i]).FIndexFrom - 1) +
486                                          Format('<a href="#%s">', [st]) +                                          Format('<a href="#%s">', [st]) +
487                                          Copy(r,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +                                          Copy(Result,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +
488                                          Copy(r,PIndex(List[i]).FIndexTo,Length(r));                                          Copy(Result,PIndex(List[i]).FIndexTo,Length(Result));
489    
490                  Dispose(PIndex(List[i]));                  Dispose(PIndex(List[i]));
491          end;          end;
492          List.Free;          List.Free;
         Result  :=      r;  
493  end;  end;
494    
495  function THTMLCreate.ConvRes(  function THTMLCreate.ConvRes(

Legend:
Removed from v.1.4.2.3  
changed lines
  Added in v.1.4.2.4

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26