comm.pas

自己写的一个 RSS 阅读器

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.