Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by h677, Sat Aug 20 06:20:19 2005 UTC revision 1.3 by h677, Mon Aug 22 14:26:19 2005 UTC
# Line 873  begin Line 873  begin
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    
# Line 969  begin Line 969  begin
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
# Line 1062  begin Line 1062  begin
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
# Line 1112  begin Line 1112  begin
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
# Line 1219  begin Line 1219  begin
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
# Line 1254  begin Line 1254  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    
# Line 1292  begin Line 1292  begin
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
# Line 1338  begin Line 1338  begin
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26