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.1 - (hide annotations) (download) (as text)
Mon Dec 12 14:12:56 2005 UTC (18 years, 4 months ago) by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_56_0_715, v1_59_0_778, v1_57_0_737, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_51_1_639, v1_53_0_671, v1_60_0_788, v1_60_0_789, v1_54_0_677, v1_54_0_676, v1_58_0_748, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_54_0_678, v1_60_0_786, v1_60_0_787, v1_56_0_707, v1_59_0_767, v1_56_0_705, v1_56_0_704, v1_56_0_703, v1_56_0_702, v1_56_0_701, v1_56_0_700, v1_59_1_778, v1_57_0_723, b51, v1_52_1_658, v1_59_0_768, v1_59_0_769, v1_57_0_725, v1_57_0_726, v1_57_0_727, v1_57_0_720, v1_57_0_722, v1_57_1_744, v1_57_0_728, v1_57_0_729, v1_52_0_646, v1_57_0_736, v1_52_0_644, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_52_0_643, v1_57_0_719, v1_57_0_718, v1_56_0_716, v1_54_0_687, v1_56_0_710, v1_56_0_711, v1_56_1_717, v1_56_1_716, v1_51_0_634, v1_51_0_635, v1_51_0_636, v1_51_0_637, v1_54_0_688, v1_54_0_689, v1_51_0_632, v1_51_0_633, v1_54_0_684, v1_54_0_685, v1_53_0_664, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_52_0_647, v1_61_0_798, v1_61_0_799, v1_51_0_638, v1_52_0_648, v1_53_0_661, v1_53_0_663, v1_53_0_662, v1_53_0_665, v1_53_0_667, v1_53_0_666, v1_53_0_669, v1_53_0_668, v1_55_0_692, v1_55_0_693, v1_55_0_696, v1_55_0_697, v1_55_0_694, v1_55_0_695, v1_52_0_645, v1_52_0_651, v1_54_1_691, v1_52_0_650, v1_56_2_724, v1_56_2_722, v1_52_0_652, v1_55_1_697, v1_52_0_642, v1_52_0_654, v1_56_0_714, v1_53_0_672, v1_53_0_670, v1_51_1_640, v1_54_0_686, v1_54_0_680, v1_54_0_681, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, v1_56_0_712, v1_62_0_803, v1_62_0_802, v1_56_0_713, v1_54_0_682, v1_56_0_721, v1_51_0_630, v1_54_0_683, v1_51_0_631, v1_60_0_780, v1_60_0_779, v1_58_0_747, v1_60_0_783, v1_54_0_679, v1_59_2_785, marged_bRESPOPUP, v1_54_0_675, v1_51_0_628, root-of-Bb51, v1_56_0_706, root-of-Bb53, v1_52_1_657, v1_54_0_674, v1_52_0_660, v1_60_1_793, v1_51_0_629, v1_54_0_690, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_52_0_655, v1_56_0_709, v1_57_0_744, v1_52_0_656, v1_56_0_708, v1_52_0_649, v1_61_0_800, v1_53_1_673, v1_56_0_699, v1_56_0_698, v1_51_1_641, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801
Branch point for: Bb57, Bb56, Bb55, Bb53, Bb52, Bb51, Bb60, Bb61, Bb59, Bb58, bRESPOPUP, bListSU, Bb54
File MIME type: text/x-pascal
2ちゃん語を独立したクラスにした

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     gmNewRes, gmNewSure, gmResError, gmSureError);
13    
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     DEF_MESSAGES : array[0..13] of string = ( '???違?≪???????障????',
25     '???違?ゃ?潟???障???? - ',
26     '綣桁?吟???違?ゃ?潟???障???? - ',
27     '[?鴻???荀у??絎?篋?]',
28     '(??腱遺????',
29     '[?鴻????絎?篋?]',
30     '[?鴻??勲????緇?絎?篋?]',
31     '[???贋??',
32     '[筝???',
33     '[??????',
34     '[???拷??篆∞?篋?]',
35     '[?違?鴻????篆∞?篋?]',
36     '[???拷??篆≦け??]',
37     '[?違?鴻????篆≦け??]');
38    
39     MESSAGE_KEYS : array[0..13] of String = ( 'Logout', 'Login',
40     'ForceLogin', 'SureItiran',
41     'UnKnown', 'SureSyutoku',
42     'SureDiff', 'NotMod',
43     'Abort', 'Error',
44     'NewRes', 'NewSure',
45     'ResError', 'SureError');
46    
47     constructor TGikoMessage.Create;
48     begin
49     inherited Create;
50     Self.Sorted := true;
51     Self.Duplicates := dupIgnore;
52     end;
53     //! MesType?ф??絎????????<???祉?若?御??絖???????緇?????
54     function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
55     begin
56     Result := '';
57     if MesType in [gmLogout..gmSureError] then begin
58     //Key?ф?膣≪??????ゃ?????違??????菴???
59     Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
60     if Result = '' then begin
61     //荀??ゃ???????????с?????????????ц???
62     Result := DEF_MESSAGES[Ord(MesType)];
63     end;
64     end;
65     end;
66    
67     end.
68    

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