09 2015 档案

XE中FMX操作ListBox，添加上千条记录（含图片）
摘要：我之前是想在ListBox的每个Item上添加一个图片，Item上所有的内容都是放在Object里赋值，结果发现加载一百条记录耗时四五秒：procedure TMainForm.AddItem;var o : TListBoxItem; o1 : TFrm;begin o := TListB... 阅读全文
posted @ 2015-09-23 22:00 王云盼 阅读(1344) 评论(0) 推荐(1)
delphi计算两个时间差
摘要：uses DateUtils;varS1, S2: string;T1, T2: TDateTime;D, H, M, S: Integer;Value: Int64;beginS1 := '2015/09/23 15:44:50';S2 := '2013/09/22 16:47:51';T1 :=... 阅读全文
posted @ 2015-09-23 21:27 王云盼 阅读(2916) 评论(0) 推荐(0)
XE下的FMX中压缩图片
摘要：用FMX压缩图片，发现FMX里的canvas没有draw,stretch,cliprect类，FMX里程序创建时会自动引用FMX.Graphics，而这个单元内的TBitmap类的Canvas没有StretchDraw属性，也没有ClipRect类，所以定义TBitmap的图片不能裁剪。而在VCL里... 阅读全文
posted @ 2015-09-13 10:21 王云盼 阅读(1525) 评论(0) 推荐(0)
delphi json用法
摘要：用法:uses Superobject, Sperjsondelphi里有json单元。procedure TForm2.SuperObjectClick(Sender: TObject);var str: string; jo1: ISuperObject;begin jo1 := SO('... 阅读全文
posted @ 2015-09-03 23:53 王云盼 阅读(1965) 评论(0) 推荐(0)