gikonavigoeson/gikonavi/GikoMessage.pas

unit GikoMessage;

interface

uses
        Classes, IniFiles;

type
        //! MessageList
        TGikoMessageListType = (gmLogout, gmLogin, gmForceLogin, gmSureItiran,
                        gmUnKnown, gmSureSyutoku, gmSureDiff, gmNotMod, gmAbort, gmError,
                        gmNewRes, gmNewSure, gmResError, gmSureError, gmBeLogout, gmBeLogin);

        TGikoMessage = class(THashedStringList)
        private
        public
                constructor Create;
                function GetMessage(MesType: TGikoMessageListType): String;
        end;

implementation

const
        DEF_MESSAGES : array[0..15] of string = (  '???違?≪???????障????',
                                                                                           '???違?ゃ?潟???障???? - ',
                                                                                           '綣桁?吟???違?ゃ?潟???障???? - ',
                                                                                           '[?鴻???荀у??絎?篋?]',
                                                                                           '(??腱遺????',
                                                                                           '[?鴻????絎?篋?]',
                                                                                           '[?鴻??勲????緇?絎?篋?]',
                                                                                           '[???贋??',
                                                                                           '[筝???',
                                                                                           '[??????',
                                                                                           '[???拷??篆∞?篋?]',
                                                                                           '[?違?鴻????篆∞?篋?]',
                                                                                           '[???拷??篆≦け??]',
                                                                                           '[?違?鴻????篆≦け??]',
                                               'BE???違?≪???????障????',
                                                                                           'BE???違?ゃ?潟???障???? - ');

        MESSAGE_KEYS : array[0..15] of String = ( 'Logout', 'Login',
                                                                                        'ForceLogin', 'SureItiran',
                                                                                        'UnKnown', 'SureSyutoku',
                                                                                        'SureDiff', 'NotMod',
                                                                                        'Abort', 'Error',
                                                                                        'NewRes', 'NewSure',
                                                                                        'ResError', 'SureError',
                                            'BELogout', 'BELogin');

constructor TGikoMessage.Create;
begin
        inherited Create;
        Self.Sorted := true;
        Self.Duplicates := dupIgnore;
end;
//! MesType?ф??絎????????＜???祉?若?御??絖???????緇?????
function TGikoMessage.GetMessage(MesType: TGikoMessageListType): String;
begin
        Result := '';
        if MesType in [gmLogout..gmBeLogin] then begin
                //Key?ф?膣≪??????ゃ?????違??????菴???
                Result := Self.Values[MESSAGE_KEYS[Ord(MesType)]];
                if Result = '' then begin
                        //荀??ゃ???????????с?????????????ц???
                        Result := DEF_MESSAGES[Ord(MesType)];
                end;
        end;
end;

end.
 