| 99 |
implementation |
implementation |
| 100 |
|
|
| 101 |
uses |
uses |
| 102 |
Trip; |
Trip, NGWordUnit; |
| 103 |
|
|
| 104 |
const |
const |
| 105 |
URL_CHAR: string = '0123456789' |
URL_CHAR: string = '0123456789' |
| 771 |
|
|
| 772 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 773 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 774 |
AddAnchorTag(@Res); |
if (NGWordList.IsNG(@Res) = -1) then begin |
| 775 |
ConvRes(@Res, @ResLink); |
AddAnchorTag(@Res); |
| 776 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
ConvRes(@Res, @ResLink); |
| 777 |
|
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 778 |
if NewReceiveNo <= (i + 1) then |
|
| 779 |
// 新着レス |
if NewReceiveNo <= (i + 1) then |
| 780 |
html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1))) |
// 新着レス |
| 781 |
else |
html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1))) |
| 782 |
// 通常のレス |
else |
| 783 |
html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1))); |
// 通常のレス |
| 784 |
|
html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1))); |
| 785 |
|
end else begin |
| 786 |
|
{$IFDEF DEBUG} |
| 787 |
|
html.Add('<h4>あぼ〜ん</h4>'); |
| 788 |
|
{$ENDIF} |
| 789 |
|
end; |
| 790 |
end; |
end; |
| 791 |
|
|
| 792 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 864 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 865 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 866 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 867 |
AddAnchorTag(@Res); |
if (NGWordList.IsNG(@Res) = -1) then begin |
| 868 |
ConvRes(@Res, @ResLink); |
AddAnchorTag(@Res); |
| 869 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
ConvRes(@Res, @ResLink); |
| 870 |
if Res.FMailTo = '' then |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 871 |
html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody])) |
if Res.FMailTo = '' then |
| 872 |
else if GikoSys.Setting.ShowMail then |
html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody])) |
| 873 |
html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody])) |
else if GikoSys.Setting.ShowMail then |
| 874 |
else |
html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody])) |
| 875 |
html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody])); |
else |
| 876 |
end; |
html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody])); |
| 877 |
|
end; |
| 878 |
|
end else begin |
| 879 |
|
{$IFDEF DEBUG} |
| 880 |
|
html.Add('<h4>あぼ〜ん</h4>'); |
| 881 |
|
{$ENDIF} |
| 882 |
|
end; |
| 883 |
|
|
| 884 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 885 |
html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
| 934 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 935 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 936 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 937 |
|
|
| 938 |
AddAnchorTag(@Res); |
AddAnchorTag(@Res); |
| 939 |
ConvRes(@Res, @ResLink); |
ConvRes(@Res, @ResLink); |
| 940 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 944 |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
| 945 |
else |
else |
| 946 |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10); |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<a href="mailto:' + Res.FMailTo + '"><b> ' + Res.FName + ' </B></a> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10); |
| 947 |
end; |
end else begin |
| 948 |
|
{$IFDEF DEBUG} |
| 949 |
|
html.Add('<h4>あぼ〜ん</h4>'); |
| 950 |
|
{$ENDIF} |
| 951 |
|
end; |
| 952 |
|
|
| 953 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 954 |
html.Add('</dl>'); |
html.Add('</dl>'); |
| 955 |
html.Add('<a name="koko"></a><table width="100%" bgcolor="#55AA55" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#77CC77" valign="middle"><font size="-1" color="#ffffff"><b>ココまで読んだ</b></font></td></tr></table>'); |
html.Add('<a name="koko"></a><table width="100%" bgcolor="#55AA55" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#77CC77" valign="middle"><font size="-1" color="#ffffff"><b>ココまで読んだ</b></font></td></tr></table>'); |
| 994 |
ReadList.LoadFromFile(FileName); |
ReadList.LoadFromFile(FileName); |
| 995 |
ReadList.EndUpdate; |
ReadList.EndUpdate; |
| 996 |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
| 997 |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
//GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
| 998 |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
| 999 |
if ThreadItem.Title = '' then begin |
if ThreadItem.Title = '' then begin |
| 1000 |
DivideStrLine(ReadList[0], @Res); |
DivideStrLine(ReadList[0], @Res); |