This commit was manufactured by cvs2svn to create branch 'Bb55'.

[gikonavigoeson/gikonavi.git] / GikoSystem.pas

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7dc995a..ebc0727 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -216,8 +216,8 @@ type
                procedure GetPopupResNumber(URL : string; var stRes, endRes : Int64);
 
                property Bayesian : TGikoBayesian read FBayesian write FBayesian;
-               function GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: boolean):string; overload;
-               function GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: boolean):string; overload;
+               function GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: Integer):string; overload;
+               function GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: Integer):string; overload;
                procedure GetSameIDRes(const AID : string; ThreadItem: TThreadItem;var body: TStringList); overload;
                procedure GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList); overload;
                function GetSameIDResCount(const AID : string; ThreadItem: TThreadItem):Integer; overload;
@@ -253,6 +253,8 @@ type
         function CanUser32DLL: Boolean;
         //! OE\88ø\97p\95\84\8eæ\93¾
         function GetOEIndentChar : string;
+        //! \92u\8a·\90Ý\92è\83t\83@\83C\83\8b\8eæ\93¾
+        function GetReplaceFileName: String;
        end;
 
 var
@@ -262,7 +264,7 @@ const
        ZERO_DATE: Integer      = 25569;
        BETA_VERSION_NAME_E = 'beta';
        BETA_VERSION_NAME_J = 'ÊÞÀ';
-       BETA_VERSION                            = 54;
+       BETA_VERSION                            = 55;
        BETA_VERSION_BUILD      = '';                           //!< debug\94Å\82È\82Ç
        APP_NAME                                                = 'gikoNavi';
        BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
@@ -2697,11 +2699,12 @@ end;
 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\83A\83\93\83J\81[\82É\82µ\82Ä\97ñ\8b\93
 \param AID        \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
-\param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç True
+\param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç1\88È\8fã
 \return           \97ñ\8b\93\82³\82ê\82½\83\8c\83X\83A\83\93\83J\81[
-\todo limited \82ð Integer \82É\82·\82é\82©\81A20 \82ð\8aO\82É\8fo\82·
 }
-function TGikoSys.GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: boolean):string;
+function TGikoSys.GetSameIDResAnchor(
+    const AID : string; ThreadItem: TThreadItem;
+    limited: Integer):string;
 var
        i: integer;
        body: TStringList;
@@ -2718,8 +2721,8 @@ begin
                                body := TStringList.Create;
                                try
                                                GetSameIDRes(AID, ThreadItem, body);
-                                               if (limited) and (body.Count > 20) then begin
-                                                               for i := body.Count - 20 to body.Count - 1 do begin
+                                               if (limited > 0) and (body.Count > limited) then begin
+                                                               for i := body.Count - limited to body.Count - 1 do begin
                                                                                Res.FBody := Res.FBody + '&gt;' + body[i] + ' ';
                                                                end;
                                                end else begin
@@ -2786,11 +2789,12 @@ end;
 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\97ñ\8b\93
 \param AIDNum     \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
-\param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç True
+\param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç1\88È\8fã
 \return
-\todo limited \82ð Integer \82É\82·\82é\82©\81A20 \82ð\8aO\82É\8fo\82·
 }
-function TGikoSys.GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: boolean):string;
+function TGikoSys.GetSameIDResAnchor(AIDNum : Integer;
+     ThreadItem: TThreadItem;
+     limited: Integer):string;
 var
        i: integer;
        body: TStringList;
@@ -2806,10 +2810,10 @@ begin
                body := TStringList.Create;
                try
                        GetSameIDRes(AIDNum, ThreadItem, body);
-            if (limited) and (body.Count > 20) then begin
-                       for i := body.Count - 20 to body.Count - 1 do begin
-                               Res.FBody := Res.FBody + '&gt;' + body[i] + ' ';
-                       end;
+            if (limited > 0) and ( body.Count > limited) then begin
+                for i := body.Count - 20 to body.Count - 1 do begin
+                    Res.FBody := Res.FBody + '&gt;' + body[i] + ' ';
+                end;
             end else begin
                        for i := 0 to body.Count - 1 do begin
                                Res.FBody := Res.FBody + '&gt;' + body[i] + ' ';
@@ -3378,6 +3382,11 @@ begin
        end;
 
 end;
+//! \92u\8a·\90Ý\92è\83t\83@\83C\83\8b\8eæ\93¾
+function TGikoSys.GetReplaceFileName: String;
+begin
+    Result := Setting.GetReplaceFileName;
+end;
 
 initialization
        GikoSys := TGikoSys.Create;