摘要： 应用EditTextPreference进行系统配置，感觉EditTextPreference只显示大小标题，点击修改才能看到值，不够简单明了。 想要实现小标题显示内容效果： 功能实现： public class SysCfg extends PreferenceActivity { @Suppre 阅读全文

摘要： 如果在VirtualBox下安装macos卡顿，我的机器是分配4G内存，刚开始用的时候不卡。后来就卡的不行，网上找原因，没进去恢复模式，突然看到360安全卫士了，怀疑是不是这家伙的问题。果断卸载，瞎猫碰到死耗子，真的是360安全卫士的问题，卸载后恢复之前的速度了。搞不懂360 为什么对Virtual 阅读全文

摘要： function sha1(input: string): string; begin with Tidhashsha1.Create do try Result := HashBytesAsHex(TidBytes(Bytesof(input))); finally free; end; end; 阅读全文

摘要： 1.MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE( 阅读全文

摘要： 在使用superobject过程中，经常遇到在有的json中增加数组数据，2次格式弄错了，经常把数组数据，写成字符数据。写demo，备注一下。 procedure TForm1.btn1Click(Sender: TObject); var jo,arry,bb: ISuperObject; str 阅读全文

摘要： procedure DBChart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var I : Integer; AValueIndex : Integer; TmpSeies : TChartSeries; tmpX 阅读全文

摘要： ​ function GetCRCWord(const DataStr: string): Word; var Crc16: word; aByte: Byte; tmpStr: string; i, j: integer; begin Crc16 := $0000; if DataStr = '' 阅读全文