Reading Android package name:uses Androidapi.Helpers;function PackageName: string;begin Result := JStringToString(SharedActivityContext.getPackageName);end;Reading iOS bundle name:uses Macapi.CoreFoundation, iOSApi.Foundation;function PackageName: str
delphi xe2之后自带了皮肤，已经满足基本的界面美化需求，以下是调用方法：引用Vcl.Themes单元 私有变量 vThemes: string; 窗口创建事件 vars: string; list: THashedStringList; vThemes := vIni.ReadString('Configure', 'Skins', 'Luna'); list := THashedStringList.Create; try list.
uses ComObj,ActiveX ;function 生成全球唯一标识符: string;var ID:TGUID;begin while True do begin if CoCreateGuid(ID)=s_OK then begin Result:=GUIDToString(ID) ; Result:=StringReplace(Result,'{','',[rfReplaceAll]) ; Result:=Str
uses ComObj,ActiveX ;function 执行JS函数(Code, Lang, Func: string): string;varscript:OleVariant;beginscript:=CreateOleObject('ScriptControl');script.Language:=Lang;script.AddCode(Code);Result:=script.Eval(Func);end;//通信类使用function 字符串编码(文本: string):
DELPHI新的变量的声明方法从DELPHI 10.3.1开始支持新的变量声明方法：procedure TForm1.查询1Click(Sender: TObject);begin var url: TynUrl := TynUrl.Create; var serial: TynSerial := TynSerial.Create; var send: TMemoryStream := TMemoryStream.Create; try url.url := 'http://127
DELPHI10.3.1安卓照相解决方法：来源：https://www.cnblogs.com/hnxxcxg/p/10834518.html
DELPHI解析JSON格式化的日期json返回的日期是 /Date(1560355200000)/ 这样的格式。这个1560355200000，是指1970年以后的秒数。DELPHI如何解析这种日期格式？网上找到的多是JAVASCRIPT的代码，没关系，DELPHI可以执行JAVASCRIPT函数。uses comobj; var js: string='function jsondate(jsonDate) {'+ 'try {'+ 'va
DELPHI正则表达式1）下载源码 官方网站: http://www.regular-expressions.info/delphi.html 直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip 2）改编译开关 pcre.pas 文件，到 {$DEFINE PCRE_LINKDLL} ，把它注释掉，即改为 //{$DEFINE PCRE_LINKDLL} 。注意：这点非常重要，如果不这样改的话，在软件开发完成后，分发到其