2013年12月23日

摘要: class procedure 类方法,不用创建实例就可以直接调用,但类方法里面不能引用到实例变量和实例方法,会编译不通过。 阅读全文
posted @ 2013-12-23 22:04 867511789 阅读(133) 评论(0) 推荐(0)
摘要: // 没用结构体,因为结构体弄成属性 赋值麻烦 // 详情请看万一博客 把一个"结构体"当做属性后碰到的问题 // http://www.cnblogs.com/del/archive/2012/01/05/2313410.html 阅读全文
posted @ 2013-12-23 22:03 867511789 阅读(109) 评论(0) 推荐(0)

2013年12月17日

摘要: 来自 蓝颜2756215016function DataSetToJson(ADataSet: TClientDataSet; All: Boolean): ISuperObject;var i: Integer; json: ISuperObject; f: TField; ws: WideString;begin if ADataSet.State in [dsEdit,dsInsert] then ADataSet.Post; if All then begin Result := TSuperObject.Create(stArray); ADataSet.F... 阅读全文
posted @ 2013-12-17 11:27 867511789 阅读(321) 评论(0) 推荐(0)

2013年12月16日

摘要: function ComponentToStr(AComponent: TComponent): string;var BinStream: TMemoryStream; StrStream: TStringStream; s: string;begin BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(AComponent); BinStream.Seek(0, soFromBeginnin... 阅读全文
posted @ 2013-12-16 08:57 867511789 阅读(393) 评论(0) 推荐(0)

导航