Browse Subversion Repository
Diff of /WebModuleUnit1.pas
 Parent Directory
|  Revision Log
|  Patch
| 164 |
end; |
end; |
| 165 |
s1 := '<nav>%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>'; |
s1 := '<nav>%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>'; |
| 166 |
s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent + |
s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent + |
| 167 |
'<a href="' + home + path + t2 + '">>></a></b>] <b><a href="' + home + path + |
'<a href="' + home + path + t2 + '">>></a></b>] <b><a href="' + home + |
| 168 |
'#article">最新</a></b></center></nav>'; |
path + '#article">最新</a></b></center></nav>'; |
| 169 |
result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2; |
result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2; |
| 170 |
end; |
end; |
| 171 |
end; |
end; |
| 473 |
end; |
end; |
| 474 |
t := TURLEncoding.Create; |
t := TURLEncoding.Create; |
| 475 |
try |
try |
| 476 |
FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub, |
FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub, com, pass, line]); |
|
ReplaceText(ReplaceText(com, '<', t.Encode('<')), '>', t.Encode('>')), |
|
|
pass, line]); |
|
| 477 |
finally |
finally |
| 478 |
t.Free; |
t.Free; |
| 479 |
end; |
end; |
|
|
Legend:
| Removed from v.13 |
|
| changed lines |
| |
Added in v.14 |
|
|
| |
Parent Directory
Revision Log
Patch