| 100 |
|
|
| 101 |
implementation |
implementation |
| 102 |
|
|
| 103 |
|
uses MojuUtils; |
| 104 |
|
|
| 105 |
constructor TAbon.Create; |
constructor TAbon.Create; |
| 106 |
begin |
begin |
| 107 |
// 初期化 |
// 初期化 |
| 435 |
end else begin |
end else begin |
| 436 |
bufline := ThreadStrings.Strings[i]; |
bufline := ThreadStrings.Strings[i]; |
| 437 |
if Deleterlo = true then begin |
if Deleterlo = true then begin |
| 438 |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
bufline := CustomStringReplace(bufline,'&rlo;',''); |
| 439 |
bufline := AnsiReplaceText( bufline,'&lro;','' ); |
bufline := CustomStringReplace(bufline,'&lro;',''); |
| 440 |
end; |
end; |
| 441 |
if Replaceul = true then begin |
if Replaceul = true then begin |
| 442 |
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
bufline := CustomStringReplace( bufline,'<ul>','<br>' ); |
| 443 |
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
bufline := CustomStringReplace( bufline,'</ul>','<br>' ); |
| 444 |
end; |
end; |
| 445 |
ThreadStrings.Strings[i] := bufline; |
ThreadStrings.Strings[i] := bufline; |
| 446 |
end; |
end; |
| 471 |
end else begin |
end else begin |
| 472 |
bufline := ResString; |
bufline := ResString; |
| 473 |
if Deleterlo = true then begin |
if Deleterlo = true then begin |
| 474 |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
bufline := CustomStringReplace( bufline,'&rlo;','' ); |
| 475 |
bufline := AnsiReplaceText( bufline,'&lro;','' ); |
bufline := CustomStringReplace( bufline,'&lro;','' ); |
| 476 |
end; |
end; |
| 477 |
if Replaceul = true then begin |
if Replaceul = true then begin |
| 478 |
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
bufline := CustomStringReplace( bufline,'<ul>','<br>' ); |
| 479 |
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
bufline := CustomStringReplace( bufline,'</ul>','<br>' ); |
| 480 |
end; |
end; |
| 481 |
ResString := bufline; |
ResString := bufline; |
| 482 |
end; |
end; |