?? multilan.pas
字號:
////////////////////////////////////////////////////////////////////////////////
//
//
// FileName : MultiLan.pas
// Creator : Shen Min
// Date : 2002-4-3
// Comment : MultiLanguage support
//
//
////////////////////////////////////////////////////////////////////////////////
unit MultiLan;
interface
Type
LanguageType = (LT_English, LT_Chinese);
const
English_NoTitle = 'No Tilte';
Chinese_NoTitle = '無標題';
English_PromptSave = 'Save changes?';
Chinese_PromptSave = '該文件被修改過,是否保存?';
English_SaveError = 'Save file failed, maybe it''s read only';
Chinese_SaveError = '保存文件失敗,可能由于該文件為只讀文件';
English_LoadError = 'The file can''t be opened : %s';
Chinese_LoadError = '打開 %s 文件失敗';
English_NotFindText = 'Sorry, can''t find string "%s"';
Chinese_NotFindText = '抱歉,沒有找到 “%s”';
English_ReplacedAll = '%d occurrences have been replaced';
Chinese_ReplacedAll = '%d 處已被替換';
English_CountResult = 'WordCount Result: ';
Chinese_CountResult = '字數統計結果:';
English_AnsiChar = 'Ansi character: ';
Chinese_AnsiChar = '英文字符:';
English_MultiChar = 'Multibyte character: ';
Chinese_MultiChar = '中文字符:';
English_NumChar = 'Numeric character: ';
Chinese_NumChar = '數字字符:';
English_OtherChar = 'Other character: ';
Chinese_OtherChar = '其它字符:';
var
str_NoTitle,
str_PromptSave,
str_SaveError,
str_LoadError,
str_NotFindText,
str_ReplacedAll,
str_CountResult,
str_AnsiChar,
str_MultiChar,
str_NumChar,
str_OtherChar : PChar;
implementation
procedure InitLanguage(Language : LanguageType);
begin
if Language = LT_Chinese then
begin
str_NoTitle := Chinese_NoTitle;
str_PromptSave := Chinese_PromptSave;
str_SaveError := Chinese_SaveError;
str_LoadError := Chinese_LoadError;
str_NotFindText := Chinese_NotFindText;
str_ReplacedAll := Chinese_ReplacedAll;
str_CountResult := Chinese_CountResult;
str_AnsiChar := Chinese_AnsiChar;
str_MultiChar := Chinese_MultiChar;
str_NumChar := Chinese_NumChar;
str_OtherChar := Chinese_OtherChar;
end
else // default is English
begin
str_NoTitle := English_NoTitle;
str_PromptSave := English_PromptSave;
str_SaveError := English_SaveError;
str_LoadError := English_LoadError;
str_NotFindText := English_NotFindText;
str_ReplacedAll := English_ReplacedAll;
str_CountResult := English_CountResult;
str_AnsiChar := English_AnsiChar;
str_MultiChar := English_MultiChar;
str_NumChar := English_NumChar;
str_OtherChar := English_OtherChar;
end;
end;
initialization
{$IFDEF _CHS}
InitLanguage(LT_Chinese);
{$ELSE}
InitLanguage(LT_English);
{$ENDIF}
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -