王云盼

2015年10月12日

摘要： LeftStr(s, i);表示返回字符串s的左边共I位字符的一个新字符串。var i: integer; s: string; result: string;begin i := 3; s ：= 'abcd1234'; result := LeftStr(s, ... 阅读全文

posted @ 2015-10-12 17:04 王云盼阅读(1244) 评论(0) 推荐(0) 编辑

Delphi7中的Char和XE中的Char

摘要：我用FillChar()函数时，发现两个版本中的Char不一样。在delphi7中procedure TForm2.Button1Click(Sender: TObject);var s: array[0..3] of Char; i: integer;begin FillCh... 阅读全文

posted @ 2015-10-12 16:34 王云盼阅读(893) 评论(0) 推荐(0) 编辑

2015年9月23日

XE中FMX操作ListBox，添加上千条记录（含图片）

摘要：我之前是想在ListBox的每个Item上添加一个图片，Item上所有的内容都是放在Object里赋值，结果发现加载一百条记录耗时四五秒：procedure TMainForm.AddItem;var o : TListBoxItem; o1 : TFrm;begin o := TListB... 阅读全文

posted @ 2015-09-23 22:00 王云盼阅读(1270) 评论(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 王云盼阅读(2709) 评论(0) 推荐(0) 编辑

2015年9月13日

XE下的FMX中压缩图片

摘要：用FMX压缩图片，发现FMX里的canvas没有draw,stretch,cliprect类，FMX里程序创建时会自动引用FMX.Graphics，而这个单元内的TBitmap类的Canvas没有StretchDraw属性，也没有ClipRect类，所以定义TBitmap的图片不能裁剪。而在VCL里... 阅读全文

posted @ 2015-09-13 10:21 王云盼阅读(1452) 评论(0) 推荐(0) 编辑

2015年9月3日

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 王云盼阅读(1912) 评论(0) 推荐(0) 编辑

2015年8月30日

delphi声明类及其调用方法

摘要： {type放在interface下的uses引用单元下面} 1 // 声明类 2 type 3 TMyclass = class //注意这里不能加';' 因为这是个整体 4 data: integer; ... 阅读全文

posted @ 2015-08-30 22:40 王云盼阅读(802) 评论(0) 推荐(0) 编辑

公告