Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoMessage.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
| 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 |
'[スレ一覧取得完了]', |
'[スレ一覧取得完了]', |
| 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 |
| 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 |
|
|
| |