中文菜单不能正确显示是由于它自带的资源编译器太老,和Delphi2010自带的TEncoding.UTF8不匹配造成的.此资源编译器frcc主要就是将资源文件*.xml中的资源编码后生成相应的.pas文件,没干啥高深的活。 以下是网友自建的Frcc程序,可以正常显示中文了.
可以自己编译一个frcc.exe,替换Res目录下的,然后再recompile即可。 delphi 2010(update5)测试界面都正常。 用delphi 2010建立一个console工程,名称为frcc,代码如下: program frcc; {$APPTYPE CONSOLE} uses SysUtils, Classes, StrUtils; var xml: string; list: TStringList; i: Integer; fileName : string; lineWidth: integer; line: string; begin try if ParamCount < 1 then begin Writeln('no input'); Exit; end; xml := ParamStr(1); fileName := ExtractFileName(xml); fileName := Copy(fileName, 1, Length(fileName) - 4); //delete ext .xml list := TStringList.Create(); list.LoadFromFile(xml, TEncoding.UTF8); xml := list.Text; list.Clear; list.Add('unit ' + fileName + ';'); list.Add(''); list.Add('interface'); list.Add('{$I frx.inc}'); list.Add('implementation'); list.Add('uses frxRes;'); list.Add('const resXML ='); xml := ReplaceText(xml, #13, ''); xml := ReplaceText(xml, #10, ''); i := 1; while True do begin if (i + 80) < (Length(xml) + 1) then lineWidth := 80 else lineWidth := Length(xml) + 1 - i; if lineWidth = 0 then break; line := Copy(xml, i, lineWidth); list.Add(QuotedStr(line) + '+'); i := i + lineWidth; end; list.Add(''''';'); list.Add('initialization'); list.Add(' frxResources.AddXML(Utf8Encode(resXML));'); list.Add(''); list.Add('end.'); list.SaveToFile(ChangeFileExt(ParamStr(1), '.pas'), TEncoding.Default); list.Free; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.
|
请发表评论