Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoMessage.pas

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

revision 1.1 by h677, Mon Dec 12 14:12:56 2005 UTC revision 1.2 by h677, Tue Feb 22 13:37:51 2011 UTC
# Line 9  type Line 9  type
9          //! MessageList          //! MessageList
10          TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,          TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
11                          gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,                          gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
12                          gmNewRes, gmNewSure, gmResError, gmSureError);                          gmNewRes, gmNewSure, gmResError, gmSureError, gmBeLogout, gmBeLogin);
13    
14          TGikoMessage = class(THashedStringList)          TGikoMessage = class(THashedStringList)
15          private          private
# Line 21  type Line 21  type
21  implementation  implementation
22    
23  const  const
24          DEF_MESSAGES : array[0..13] of string = (  'ログアウトしました',          DEF_MESSAGES : array[0..15] of string = (  'ログアウトしました',
25                                                                                             'ログインしました - ',                                                                                             'ログインしました - ',
26                                                                                             '強制ログインしました - ',                                                                                             '強制ログインしました - ',
27                                                                                             '[スレ一覧取得完了]',                                                                                             '[スレ一覧取得完了]',
# Line 34  const Line 34  const
34                                                                                             '[レス送信終了]',                                                                                             '[レス送信終了]',
35                                                                                             '[新スレ送信終了]',                                                                                             '[新スレ送信終了]',
36                                                                                             '[レス送信失敗]',                                                                                             '[レス送信失敗]',
37                                                                                             '[新スレ送信失敗]');                                                                                             '[新スレ送信失敗]',
38                                                   'BEログアウトしました',
39                                                                                               'BEログインしました - ');
40    
41          MESSAGE_KEYS : array[0..13] of String = ( 'Logout', 'Login',          MESSAGE_KEYS : array[0..15] of String = ( 'Logout', 'Login',
42                                                                                          'ForceLogin', 'SureItiran',                                                                                          'ForceLogin', 'SureItiran',
43                                                                                          'UnKnown', 'SureSyutoku',                                                                                          'UnKnown', 'SureSyutoku',
44                                                                                          'SureDiff', 'NotMod',                                                                                          'SureDiff', 'NotMod',
45                                                                                          'Abort', 'Error',                                                                                          'Abort', 'Error',
46                                                                                          'NewRes', 'NewSure',                                                                                          'NewRes', 'NewSure',
47                                                                                          'ResError', 'SureError');                                                                                          'ResError', 'SureError',
48                                                'BELogout', 'BELogin');
49    
50  constructor TGikoMessage.Create;  constructor TGikoMessage.Create;
51  begin  begin
# Line 54  end; Line 57  end;
57  function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;  function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
58  begin  begin
59          Result := '';          Result := '';
60          if MesType in [gmLogout..gmSureError] then begin          if MesType in [gmLogout..gmBeLogin] then begin
61                  //Keyで検索して見つかればそれを返す                  //Keyで検索して見つかればそれを返す
62                  Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];                  Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
63                  if Result = '' then begin                  if Result = '' then begin

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

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