2022-11-16 84 0

问题：原10.2 换成10.3断点全部失效，查了很多资料都不行 解决；build configurations选debug，然后save all，再build

2022-11-16 127 0

安卓蓝牙动态权限安卓7.0及以下版本在 IDE 的 Project - Options 菜单弹出来的窗口里面，找到左边树结构的： Application -- Uses Permissions 项目，则右边会出来一堆权限让你打勾。这里要勾选上 Bluetooth 和 Bluetooth admin 两项。老的安卓版本，勾选这两项就可以了。安卓8.0及以上版本，还需要运行期用代码动态申请权限。代码里面：首先要实现一个函数：procedure RequestPermissionsResult(Sender:

2022-11-16 42 0

//代码有点老，可以调整最新的算法 function IncomeTaxCalc(const AValues: double): double;var overPays: double;begin // 个人所得税计算函数 { 按2011年9月1日的最新政策 起征点 3500元 全月应纳税额不超过1500元 3% 0 全月应纳税额超过1500元至4500元 10% 105 全月应纳税额超过4500元至9000元 20% 555 全月应纳税额超过9000元至35000元 25% 1

2022-11-16 80 0

var Form1: TForm1;implementation{$R *.fmx}procedure TForm1.Button1Click(Sender: TObject);begin // Populate Manufacturer box SQLConnection1.Connected := True; SQLQuery1.SQL.Clear; SQLQuery1.Close; SQLQuery1.SQL.Add('SELECT DISTINCT manufactu

2022-11-16 53 0

序言之前所说的获取文件MD5方法有性能问题，没多久我就遇到了，程序假死，卡顿。因此将获取文件MD5的方法改了一下，并测试了一下，大概性能提升了5倍，获取同一个文件的MD5，老方法用时是新方法的6倍。改进原始获取文件MD5的方法：// uses IdHashMessageDigestFunction StreamToMD5(s: TFileStream): string;var MD5Encode: TIdHashMessageDigest5;begin MD5Encode := TIdHashMes

2022-11-16 65 0

unit util_utf8;interfaceuses Windows;type UTF8String = AnsiString; function AnsiToWide(const S: AnsiString): WideString; function WideToUTF8(const WS: WideString): UTF8String; function AnsiToUTF8(const S: AnsiString): UTF8String; function UTF8ToWid

2022-11-16 178 0

var TotalComNum : Integer = 0; HaveOpenCom : string = '0';USES Registry;procedure GetComListFromReg();var reg:TRegistry; // 注: 要引用Registry单元 Namelst:TStrings; i,j:integer; str:string; b:Boolean;begin Namelst:=TStringList.Create; reg:=TRe

2022-11-16 117 0

USES IdHTTP;function GetPublicIP: string;var strIP, URL: string; iStart, iEnd, i: Integer; MyIdHTTP: TIdHTTP;begin Result := ''; MyIdHTTP := TIdHTTP.Create(nil); //第1次尝试获取IP try try MyIdHTTP.request.UserAgent:= 'Mo