zoukankan      html  css  js  c++  java
  • delphi多语言

    LoadLangFromStrings

    http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Types.TLang

    http://blog.csdn.net/pcplayer/article/details/78152471

    procedure TForm7.Button1Click(Sender: TObject);
    var
      list: TStringList;
    begin
      list := TStringList.Create;
      list.LoadFromFile('cn.txt');
      LoadLangFromStrings(list);
      list.Free;
    end;
    
    procedure TForm7.Button2Click(Sender: TObject);
    var
      list: TStringList;
    begin
      list := TStringList.Create;
      list.LoadFromFile('en.txt');
      LoadLangFromStrings(list);
      list.Free;
    end;

    cn.txt

    Button1=开始
    Button2=结束
    RadioButton1=性别

    en.txt

    Button1=start
    Button2=end
    RadioButton1=option

    //没找到下文的出处和原作者。暂时记录.

      // uses FMX.Platform{$IFDEF MSWINDOWS}, WinAPi.Windows{$ENDIF}; {$R *.fmx}
      // 以下这个函数,获取当前操作系统的语言设置。  比如 Windows 底下,语言为中文,返回 Zh
      // 这个函数支持各种操作系统。
    
    end;
    
    function GetOSLangID: String; {$IFDEF MACOS}var
      Languages: NSArray;
    begin
      Languages := TNSLocale.OCClass.preferredLanguages;
      Result := TNSString.Wrap(Languages.objectAtIndex(0)).UTF8String; {$ENDIF}{$IFDEF ANDROID}var
        LocServ: IFMXLocaleService;
      begin
        if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then
          Result := LocServ.GetCurrentLangID; {$ENDIF}{$IFDEF MSWINDOWS}var
          buffer: MarshaledString;
          UserLCID: LCID;
          BufLen: Integer;
        begin
          // defaults
          UserLCID := GetUserDefaultLCID;
          BufLen := GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, nil, 0);
          buffer := StrAlloc(BufLen);
          if GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, buffer, BufLen) <> 0 then
            Result := buffer
          else
            Result := 'en';
          StrDispose(buffer); {$ENDIF} end;
  • 相关阅读:
    1005: [HNOI2008]明明的烦恼
    1006: [HNOI2008]神奇的国度
    1007: [HNOI2008]水平可见直线
    1011: [HNOI2008]遥远的行星
    1025: [SCOI2009]游戏
    HTTP1.0和HTTP1.1的区别
    各排序算法的时间复杂度和空间复杂度
    换钱最少货币数
    矩阵的最小路径和
    背包问题
  • 原文地址:https://www.cnblogs.com/cb168/p/7685988.html
Copyright © 2011-2022 走看看