中国开发网: 论坛: Delphi/BCB: 贴子 1000111
pcplayer: DELPHI 的代码质量越来越差了
procedure TLang.SetLang(const Value: string);
begin
FLang := Value;
if not(csLoading in ComponentState) then
begin
if FLang = 'en' then
ResetLang
else
LoadLangFromStrings(LangStr[FLang]);
end;
end;

这个 Delphi 官方出来的 TLang 控件的代码,里面居然硬编码默认语言是 en,而且还一定要是小写。而且它公开的属性或者方法里面,没有恢复到默认语言的项目。

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录