Diff of /WebModuleUnit1.pas

OSDN > Find Software > mybbs

 Browse Subversion Repository



/[bbs-as-pbbs]/WebModuleUnit1.pas




Diff of /WebModuleUnit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 4 by yamat0jp,
Thu Sep 24 07:42:33 2015 UTC




revision 5 by yamat0jp,
Thu Sep 24 08:53:41 2015 UTC






#

Line 137 
 var


Line 137 
 var












137
         result := result + '  ' + IntToStr(position + 1) + '  '
         result := result + '  ' + IntToStr(position + 1) + '  '

















138
       else
       else

















139
         result := result + Format('  <a href="' + home + path +
         result := result + Format('  <a href="' + home + path +















140


           '?pos=%d">%d</a>  ', [position + i + j, position + 1 + i + j]);


           '?pos=%d#article">%d</a>  ', [position + i + j, position + 1 + i + j]);















141
     end;
     end;

















142
   end;
   end;

















143
 
 











#

Line 165 
 begin


Line 165 
 begin












165
       position := i;
       position := i;

















166
     if position = i then
     if position = i then

















167
     begin
     begin















168


       t2 := '?pos=' + IntToStr(position);


       t2 := '?pos=' + position.ToString+'#article';















169
       k := FDTable1.RecordCount;
       k := FDTable1.RecordCount;

















170
     end
     end

















171
     else
     else

















172
     begin
     begin















173


       t2 := '?pos=' + IntToStr(position + 1);


       t2 := '?pos=' + IntToStr(position + 1)+'#article';















174
       k := (position + 1) * count;
       k := (position + 1) * count;

















175
     end;
     end;

















176
     s1 := '%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>';
     s1 := '%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>';















177


     s2 := '<a href="' + home + path + t1 + '"><<</a>' + linkcontent +


     s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent +















178
       '<a href="' + home + path + t2 + '">>></a>]  <a href="' + home + path +
       '<a href="' + home + path + t2 + '">>></a>]  <a href="' + home + path +















179


       '">最新</a></b></center>';


       '#article">最新</a></b></center>';















180
     result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2;
     result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2;

















181
   end;
   end;

















182
 end;
 end;











#

Line 205 
 begin


Line 205 
 begin












205
     if FDTable1.RecordCount = 0 then
     if FDTable1.RecordCount = 0 then

















206
     begin
     begin

















207
       if uri = 'index' then
       if uri = 'index' then















208


         ReplaceText := 'まだ投稿がありません.';


         ReplaceText := '<hr>まだ投稿がありません.<hr>';















209
     end
     end

















210
     else
     else

















211
     begin
     begin











#

Line 238 
 begin


Line 238 
 begin












238
         ReplaceText := ReplaceText + s.Content;
         ReplaceText := ReplaceText + s.Content;

















239
         FDTable1.Prior;
         FDTable1.Prior;

















240
       end;
       end;












241
 
       ReplaceText:=ReplaceText + '<hr>';












242
     end;
     end;

















243
   end;
   end;

















244
   if TagString = 'footer' then
   if TagString = 'footer' then











#

Line 467 
 begin


Line 468 
 begin












468
     Value := AnsiString(na);
     Value := AnsiString(na);

















469
     Expires := Now + 1;
     Expires := Now + 1;

















470
   end;
   end;















471


   Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString);


   Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString+'index#article');















472
 end;
 end;

















473
 
 

















474
 procedure TWebModule1.WebModule1searchAction(Sender: TObject;
 procedure TWebModule1.WebModule1searchAction(Sender: TObject;





























Legend:



Removed from v.4
 


changed lines


 
Added in v.5













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[bbs-as-pbbs]/WebModuleUnit1.pas
-revision 4 by yamat0jp,
Thu Sep 24 07:42:33 2015 UTC
+revision 5 by yamat0jp,
Thu Sep 24 08:53:41 2015 UTC
 Line 137 
 var
          result := result + '  ' + IntToStr(position + 1) + '  '
        else
          result := result + Format('  <a href="' + home + path +
-           '?pos=%d">%d</a>  ', [position + i + j, position + 1 + i + j]);
+           '?pos=%d#article">%d</a>  ', [position + i + j, position + 1 + i + j]);
      end;
    end;
 Line 165 
 begin
        position := i;
      if position = i then
      begin
-       t2 := '?pos=' + IntToStr(position);
+       t2 := '?pos=' + position.ToString+'#article';
        k := FDTable1.RecordCount;
      end
      else
      begin
-       t2 := '?pos=' + IntToStr(position + 1);
+       t2 := '?pos=' + IntToStr(position + 1)+'#article';
        k := (position + 1) * count;
      end;
      s1 := '%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>';
-     s2 := '<a href="' + home + path + t1 + '"><<</a>' + linkcontent +
+     s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent +
        '<a href="' + home + path + t2 + '">>></a>]  <a href="' + home + path +
-       '">最新</a></b></center>';
+       '#article">最新</a></b></center>';
      result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2;
    end;
  end;
 Line 205 
 begin
      if FDTable1.RecordCount = 0 then
      begin
        if uri = 'index' then
-         ReplaceText := 'まだ投稿がありません.';
+         ReplaceText := '<hr>まだ投稿がありません.<hr>';
      end
      else
      begin
 Line 238 
 begin
          ReplaceText := ReplaceText + s.Content;
          FDTable1.Prior;
        end;
+       ReplaceText:=ReplaceText + '<hr>';
      end;
    end;
    if TagString = 'footer' then
-Line 467 
 begin
+Line 468 
 begin
      Value := AnsiString(na);
      Expires := Now + 1;
    end;
-   Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString);
+   Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString+'index#article');
  end;
  procedure TWebModule1.WebModule1searchAction(Sender: TObject;
 Legend:



Removed from v.4
 


changed lines


 
Added in v.5
 Legend:



Removed from v.4
 


changed lines


 
Added in v.5
-Removed from v.4
+Added in v.5
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

mybbs

Browse Subversion Repository