Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.95 by h677, Mon Dec 1 14:32:40 2003 UTC revision 1.96 by h677, Tue Dec 2 09:01:54 2003 UTC
# Line 2234  begin Line 2234  begin
2234                          et      :=      PIndex(List[i]).FNo;                          et      :=      PIndex(List[i]).FNo;
2235                  end;                  end;
2236                  r :=    Copy(r,0, PIndex(List[i]).FIndexFrom - 1) +                  r :=    Copy(r,0, PIndex(List[i]).FIndexFrom - 1) +
2237                                          Format('<a href="%s=%s=%s=%s=%s=%s=%s" target="_blank">',                                          Format('<a href="%s&%s=%s&%s=%s&%s=%s" target="_blank">',
2238                                                                  [FullURL, ParamStart, st, ParamTo, et, ParamNoFirst, ParamTrue]) +                                                                  [FullURL, ParamStart, st, ParamTo, et, ParamNoFirst, ParamTrue]) +
2239                                          Copy(r,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +                                          Copy(r,PIndex(List[i]).FIndexFrom, PIndex(List[i]).FIndexTo - PIndex(List[i]).FIndexFrom) + '</A>' +
2240                                          Copy(r,PIndex(List[i]).FIndexTo,Length(r));                                          Copy(r,PIndex(List[i]).FIndexTo,Length(r));

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

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