| 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; |
| 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 := ''; |
| 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 |
| 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( |