| 873 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 874 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 875 |
|
|
| 876 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 877 |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 878 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 879 |
|
|
| 969 |
|
|
| 970 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 971 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 972 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 973 |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 974 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 975 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |
| 1062 |
|
|
| 1063 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 1064 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 1065 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1066 |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(AddAnchorTag(Res.FBody), ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 1067 |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1); |
| 1068 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |
| 1112 |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
| 1113 |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
| 1114 |
if ThreadItem.Title = '' then begin |
if ThreadItem.Title = '' then begin |
| 1115 |
Res := GikoSys.DivideStrLine(ReadList[0]); |
Res := DivideStrLine(ReadList[0]); |
| 1116 |
sTitle := Res.FTitle; |
sTitle := Res.FTitle; |
| 1117 |
end else |
end else |
| 1118 |
sTitle := ThreadItem.Title |
sTitle := ThreadItem.Title |
| 1219 |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
GikoSys.FAbon.IndividualAbon(ReadList, ChangeFileExt(FileName,'.NG')); |
| 1220 |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
GikoSys.FAbon.Execute(ReadList); // あぼ〜んして |
| 1221 |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
GikoSys.FSelectResFilter.Execute(ReadList); //レスのフィルタリングをする |
| 1222 |
Res := GikoSys.DivideStrLine(ReadList[0]); |
Res := DivideStrLine(ReadList[0]); |
| 1223 |
//Res.FTitle := CustomStringReplace(Res.FTitle, '@`', ','); |
//Res.FTitle := CustomStringReplace(Res.FTitle, '@`', ','); |
| 1224 |
sTitle := Res.FTitle; |
sTitle := Res.FTitle; |
| 1225 |
end else begin |
end else begin |
| 1254 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 1255 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 1256 |
|
|
| 1257 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1258 |
Res.FBody := AddAnchorTag(Res.FBody); |
Res.FBody := AddAnchorTag(Res.FBody); |
| 1259 |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
| 1260 |
|
|
| 1292 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 1293 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 1294 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 1295 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1296 |
Res.FBody := AddAnchorTag(Res.FBody); |
Res.FBody := AddAnchorTag(Res.FBody); |
| 1297 |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
| 1298 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |
| 1338 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 1339 |
if (Trim(ReadList[i]) <> '') then begin |
if (Trim(ReadList[i]) <> '') then begin |
| 1340 |
No := IntToStr(i + 1); |
No := IntToStr(i + 1); |
| 1341 |
Res := GikoSys.DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1342 |
Res.FBody := AddAnchorTag(Res.FBody); |
Res.FBody := AddAnchorTag(Res.FBody); |
| 1343 |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true)); |
| 1344 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |