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.