?? comm.pas
字號:
unit Comm;
interface
uses MProperties;
function TranslateStr(SectionName:string;ResID: integer):String;
implementation
uses FastStrings,SysUtils,Classes;
function TranslateStr(SectionName:string;ResID: integer):String;
var
TemStr: string;
begin
if gProperties.Language.Count=0 then
begin
Result := LoadStr(ResID);
Exit;
end;
TemStr := gProperties.Language.Translate(SectionName,ResID);
if TemStr = '' then //如果從語言文件得到的字符串為空,
TemStr := LoadStr(ResID); // 那么目標字符串為資源中的對應字符串
TemStr:=FastReplace(TemStr,'%AppName%','RssNavigator',false);
Result := TemStr;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -