delphi零碎笔记02

  DeviceInfo: System.Devices.TDeviceInfo;
  OSPlatform: FMX.Types.TOSPlatform;
  OSVersion: System.SysUtils.TOSVersion;
  //:OSVersion.ToString:研究判断一个数值,是否包含在枚举、集合、数组中
    //:ResStringRec: System.PResStringRec; System.LoadResString(ResStringRec); //访问值：//Architecture:string;
  //研究Andoid的JNI类的JavaClass的属性方法函数引用
    //:比如Androidapi.JNI.Os下的TJBuild_VERSION类
      //Memo1.Lines.Add( Format('OSVersion: %s', [JStringToString(TJBuild_VERSION.JavaClass.RELEASE)]) );
  //研究IOS的iOSapi.**(如iOSapi.UIKit)类的Wrap后的NSStrToStr:的delphi封装:
      //比如:Device : UIDevice;
      //Device := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice);
      //Memo1.Lines.Add( Format('OSName: %s', [NSStrToStr(Device.systemName)]) );
  //:例程://D:\开发测试\Samples\Object Pascal\Mobile Snippets\DeviceInfo