Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/GikoMessage.pas

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


Revision 1.2 - (hide annotations) (download) (as text)
Tue Feb 22 13:37:51 2011 UTC (13 years, 1 month ago) by h677
Branch: MAIN
CVS Tags: v1_63_1_819, v1_62_0_812, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_62_0_809, v1_62_0_810, v1_62_0_811, v1_62_1_813, HEAD
Branch point for: Bb62, Bb63
Changes since 1.1: +9 -6 lines
File MIME type: text/x-pascal
Beのログインに対応
Folder.iniに冒険の書が記録されている場合削除する処理を追加

1 h677 1.1 unit GikoMessage;
2    
3     interface
4    
5     uses
6     Classes, IniFiles;
7    
8     type
9     //! MessageList
10     TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
11     gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
12 h677 1.2 gmNewRes, gmNewSure, gmResError, gmSureError, gmBeLogout, gmBeLogin);
13 h677 1.1
14     TGikoMessage = class(THashedStringList)
15     private
16     public
17     constructor Create;
18     function GetMessage(MesType: TGikoMessageListType): String;
19     end;
20    
21     implementation
22    
23     const
24 h677 1.2 DEF_MESSAGES : array[0..15] of string = ( '???違?≪???????障????',
25 h677 1.1 '???違?ゃ?潟???障???? - ',
26     '綣桁?吟???違?ゃ?潟???障???? - ',
27     '[?鴻???荀у??絎?篋?]',
28     '(??腱遺????',
29     '[?鴻????絎?篋?]',
30     '[?鴻??勲????緇?絎?篋?]',
31     '[???贋??',
32     '[筝???',
33     '[??????',
34     '[???拷??篆∞?篋?]',
35     '[?違?鴻????篆∞?篋?]',
36     '[???拷??篆≦け??]',
37 h677 1.2 '[?違?鴻????篆≦け??]',
38     'BE???違?≪???????障????',
39     'BE???違?ゃ?潟???障???? - ');
40 h677 1.1
41 h677 1.2 MESSAGE_KEYS : array[0..15] of String = ( 'Logout', 'Login',
42 h677 1.1 'ForceLogin', 'SureItiran',
43     'UnKnown', 'SureSyutoku',
44     'SureDiff', 'NotMod',
45     'Abort', 'Error',
46     'NewRes', 'NewSure',
47 h677 1.2 'ResError', 'SureError',
48     'BELogout', 'BELogin');
49 h677 1.1
50     constructor TGikoMessage.Create;
51     begin
52     inherited Create;
53     Self.Sorted := true;
54     Self.Duplicates := dupIgnore;
55     end;
56     //! MesType?ф??絎????????<???祉?若?御??絖???????緇?????
57     function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
58     begin
59     Result := '';
60 h677 1.2 if MesType in [gmLogout..gmBeLogin] then begin
61 h677 1.1 //Key?ф?膣≪??????ゃ?????違??????菴???
62     Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
63     if Result = '' then begin
64     //荀??ゃ???????????с?????????????ц???
65     Result := DEF_MESSAGES[Ord(MesType)];
66     end;
67     end;
68     end;
69    
70     end.
71    

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