10 TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
11 gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
12 gmNewRes, gmNewSure, gmResError, gmSureError);
14 TGikoMessage = class(THashedStringList)
18 function GetMessage(MesType: TGikoMessageListType): String;
24 DEF_MESSAGES : array[0..13] of string = ( '
\83\8d\83O
\83A
\83E
\83g
\82µ
\82Ü
\82µ
\82½',
25 '
\83\8d\83O
\83C
\83\93\82µ
\82Ü
\82µ
\82½ - ',
26 '
\8b
\90§
\83\8d\83O
\83C
\83\93\82µ
\82Ü
\82µ
\82½ - ',
27 '[
\83X
\83\8c\88ê
\97\97\8eæ
\93¾
\8a®
\97¹]',
28 '(
\96¼
\8fÌ
\95s
\96¾
\81j',
29 '[
\83X
\83\8c\8eæ
\93¾
\8a®
\97¹]',
30 '[
\83X
\83\8c\8d·
\95ª
\8eæ
\93¾
\8a®
\97¹]',
34 '[
\83\8c\83X
\91\97\90M
\8fI
\97¹]',
35 '[
\90V
\83X
\83\8c\91\97\90M
\8fI
\97¹]',
36 '[
\83\8c\83X
\91\97\90M
\8e¸
\94s]',
37 '[
\90V
\83X
\83\8c\91\97\90M
\8e¸
\94s]');
39 MESSAGE_KEYS : array[0..13] of String = ( 'Logout', 'Login',
40 'ForceLogin', 'SureItiran',
41 'UnKnown', 'SureSyutoku',
45 'ResError', 'SureError');
47 constructor TGikoMessage.Create;
51 Self.Duplicates := dupIgnore;
53 //! MesType
\82Å
\8ew
\92è
\82³
\82ê
\82½
\83\81\83b
\83Z
\81[
\83W
\95¶
\8e\9a\97ñ
\82ð
\8eæ
\93¾
\82·
\82é
54 function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
57 if MesType in [gmLogout..gmSureError] then begin
58 //Key
\82Å
\8c\9f\8dõ
\82µ
\82Ä
\8c©
\82Â
\82©
\82ê
\82Î
\82»
\82ê
\82ð
\95Ô
\82·
59 Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
60 if Result = '' then begin
61 //
\8c©
\82Â
\82©
\82ç
\82È
\82¢
\82Ì
\82Å
\81A
\83f
\83t
\83H
\83\8b\83g
\82Å
\95Ô
\82·
62 Result := DEF_MESSAGES[Ord(MesType)];