Commit: fec7ca3cbbe941f68587b605811917a117951c1a - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: fec7ca3cbbe941f68587b605811917a117951c1a (tree)
• Time: 2007-05-15 07:00:59
• Author: h677 <h677>
• Commiter: h677

Log Message

デバッグ中、初期化時にGikosysがnilの場合があったので、
そのときに落ちないようにだけ修正

Change Summary

• modified: MoveHistoryItem.pas

Incremental Difference

--- a/MoveHistoryItem.pas
+++ b/MoveHistoryItem.pas
@@ -11,7 +11,7 @@ uses
 	SHDocVw_TLB,
 	MSHTML_TLB,
 {$IFEND}
-    OleCtrls, ActiveX, GikoSystem;
+    OleCtrls, ActiveX;
 type
 
     TMoveHistoryItem = class(TObject)
@@ -53,6 +53,8 @@ var
 
 implementation
 
+uses
+    GikoSystem;
 
 //! ƒRƒ“ƒXƒgƒ‰ƒNƒ^
 constructor TMoveHistory.Create( max : Integer );
@@ -60,8 +62,12 @@ begin
     inherited Create;
 
     FIndex := 0;
-
-    SetHistoryMax( GikoSys.Setting.MoveHistorySize );
+    // ‚È‚º‚ªƒfƒoƒbƒO’†‚ÉGikoSys‚ªnil‚ÌŽž‚ª‚ ‚Á‚½???
+    if (GikoSys = nil) then begin
+        SetHistoryMax( max );
+    end else begin
+        SetHistoryMax( GikoSys.Setting.MoveHistorySize );
+    end;
 end;
 //! ˆÚ“®—š—ð‚̃AƒCƒeƒ€’ljÁ
 function TMoveHistory.pushItem( item: TMoveHistoryItem): Integer;