| 100 |
implementation |
implementation |
| 101 |
|
|
| 102 |
uses |
uses |
| 103 |
Trip, NGWordUnit; |
Trip; |
| 104 |
|
|
| 105 |
const |
const |
| 106 |
URL_CHAR: string = '0123456789' |
URL_CHAR: string = '0123456789' |
| 771 |
end; |
end; |
| 772 |
|
|
| 773 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
|
|
|
| 774 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 775 |
{$IFDEF NEWNGWORD} |
AddAnchorTag(@Res); |
| 776 |
if (NGWordList.IsNG(@Res) = -1) then begin |
ConvRes(@Res, @ResLink); |
| 777 |
{$ENDIF} |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 778 |
AddAnchorTag(@Res); |
|
| 779 |
ConvRes(@Res, @ResLink); |
if NewReceiveNo <= (i + 1) then |
| 780 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
// 新着レス |
| 781 |
|
html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1))) |
| 782 |
if NewReceiveNo <= (i + 1) then |
else |
| 783 |
// 新着レス |
// 通常のレス |
| 784 |
html.Add(SkinedRes(SkinNewRes, @Res, IntToStr(i + 1))) |
html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1))); |
|
else |
|
|
// 通常のレス |
|
|
html.Add(SkinedRes(SkinRes, @Res, IntToStr(i + 1))); |
|
|
{$IFDEF NEWNGWORD} |
|
|
end else begin |
|
|
html.Add('<h4>あぼ〜ん</h4>'); |
|
|
end; |
|
|
{$ENDIF} |
|
| 785 |
end; |
end; |
| 786 |
|
|
| 787 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 859 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 860 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 861 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 862 |
{$IFDEF NEWNGWORD} |
AddAnchorTag(@Res); |
| 863 |
if (NGWordList.IsNG(@Res) = -1) then begin |
ConvRes(@Res, @ResLink); |
| 864 |
{$ENDIF} |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 865 |
AddAnchorTag(@Res); |
if Res.FMailTo = '' then |
| 866 |
ConvRes(@Res, @ResLink); |
html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody])) |
| 867 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
else if GikoSys.Setting.ShowMail then |
| 868 |
if Res.FMailTo = '' then |
html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody])) |
| 869 |
html.Add(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody])) |
else |
| 870 |
else if GikoSys.Setting.ShowMail then |
html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody])); |
|
html.Add(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody])) |
|
|
else |
|
|
html.Add(Format(FORMAT_NOSHOW, [No, No, No, Res.FMailTo, Res.FName, Res.FDateTime, Res.FBody])); |
|
|
{$IFDEF NEWNGWORD} |
|
|
end else begin |
|
|
html.Add('<h4>あぼ〜ん</h4>'); |
|
|
end; |
|
|
{$ENDIF} |
|
| 871 |
end; |
end; |
| 872 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 873 |
html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
html.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
| 922 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 923 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 924 |
DivideStrLine(ReadList[i], @Res); |
DivideStrLine(ReadList[i], @Res); |
| 925 |
{$IFDEF NEWNGWORD} |
AddAnchorTag(@Res); |
| 926 |
if (NGWordList.IsNG(@Res) = -1) then begin |
ConvRes(@Res, @ResLink); |
| 927 |
{$ENDIF} |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 928 |
AddAnchorTag(@Res); |
if Res.FMailTo = '' then |
| 929 |
ConvRes(@Res, @ResLink); |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
| 930 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
else if GikoSys.Setting.ShowMail then |
| 931 |
if Res.FMailTo = '' then |
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) |
| 932 |
html.Add('<a name="' + No + '"></a><dt><a href="menu:' + No + '">' + No + '</a> 名前:<font color="forestgreen"><b> ' + Res.FName + ' </b></font> 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
else |
| 933 |
else if GikoSys.Setting.ShowMail then |
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> [' + Res.FMailTo + '] 投稿日: <span class="date">' + Res.FDateTime+ '</span><br><dd>' + Res.Fbody + ' <br><br><br>'#13#10) |
|
|
else |
|
|
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); |
|
|
{$IFDEF NEWNGWORD} |
|
|
end else begin |
|
|
html.Add('<h4>あぼ〜ん</h4>'); |
|
|
end; |
|
|
{$ENDIF} |
|
| 934 |
end; |
end; |
| 935 |
if ThreadItem.Kokomade = (i + 1) then begin |
if ThreadItem.Kokomade = (i + 1) then begin |
| 936 |
html.Add('</dl>'); |
html.Add('</dl>'); |
| 977 |
ReadList.LoadFromFile(FileName); |
ReadList.LoadFromFile(FileName); |
| 978 |
ReadList.EndUpdate; |
ReadList.EndUpdate; |
| 979 |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
|
{$IFNDEF NEWNGWORD} |
|
| 980 |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
|
{$ENDIF} |
|
| 981 |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
| 982 |
if ThreadItem.Title = '' then begin |
if ThreadItem.Title = '' then begin |
| 983 |
DivideStrLine(ReadList[0], @Res); |
DivideStrLine(ReadList[0], @Res); |