uses superobject;procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO('{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}'); {2、...

2018-06-17 18:57:34

Firemonkey 提供了一个跨平台的日志显示函数 Log.d，当 App 越来越大 Debug 编译越来越慢时，可以利用它在Release 模式来除错，下列说明如何在各平台查看。 小技巧： 可以在 Log.d 输出内容里加入一个关键字在开头（如：'Aone: ....'），在查看 Log 时，可以用它来过滤...

2018-06-17 18:57:34

说明：Firemonkey OnTouch 多点触控应用，可同时多指移动多个不同控件 原码下载：[原创]TestMultitouchMove_多点触控应用_by_Aone.zip 运行展示：...

2018-06-17 18:57:33

1 procedure delay(msecs: integer); 2 var 3 Tick: DWord; 4 Event: THandle; 5 begin 6 Event := CreateEvent( nil , False, False, nil ); 7 try 8 Tick := GetTickCount + DWord(msecs); 9 while (msecs 0 ) and (MsgWaitForMultipleObjects( 1 , Event, False, ms...

2018-06-17 18:57:32

uses HtmlParserprocedure TForm4.Button1Click(Sender: TObject);var FNodes:IHtmlElement; aString:string;begin FNodes := parserHtml(Memo1.Text); aString:= FNodes.Children[2].Children[1].Children[5].Children[0].InnerText;end; // 判断某子结点是否存在,增...

2018-06-17 18:57:32

说明：在 Firemonkey 在移动平台 Android iOS 要直接在 Canvas 画出 1 点像素的线，似乎有点困难，不过利用一点小技巧，还是能达到这个要求的，首先要建立一个 Bitmap 并将大小乘以目前机子的 Scale ，再开始绘图即可。 源码下载： https://github.com/OneChen/TestDra...

2018-06-17 18:57:27

官网 http://www.overbyte.be/ 下载 OverbyteIcsV816完成后解压到E:\Delphi7\OverbyteIcsV816\ 1、在library里加入E:\Delphi7\OverbyteIcsV816\Source目录。 2、从File-Open中打开E:\Delphi7\OverbyteIcsV816\Install\D7Install.bpg文件。(文件名在其它Delphi版本略有...

2018-06-17 18:57:27

abort 函数 引起放弃的意外处理 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf 序列 allocmem 函数 在堆栈上分配给定大小的块 ansicomparestr 函数 比较字符串（区分...

2018-06-17 18:57:26

源码下载： https://github.com/OneChen/DragAndDrop 效果：...

2018-06-17 18:57:22

iOS 上架一個新版本号，就改个版号数字就好，有什么好说的？ 是啊~ 如果上架顺利的话，就没什么好说的，如果被退件，再上传更新时，那版号怎么改？ 下面说说我的做法（这只是建议，版号随自己喜好，没有固定章法） 例如我要上架一个新版，在 iTunues Connect 里，加入...

2018-06-17 18:57:24