界面全屏
摘要：UniServerModule.MainFormDisplayMode設為mfpage
阅读全文
posted @ 2013-12-29 19:41
12 2013 档案
class procedure 类方法
摘要：class procedure 类方法，不用创建实例就可以直接调用，但类方法里面不能引用到实例变量和实例方法，会编译不通过。
阅读全文
posted @ 2013-12-23 22:04
结构体弄成属性
摘要：// 没用结构体，因为结构体弄成属性 赋值麻烦 // 详情请看万一博客 把一个"结构体"当做属性后碰到的问题 // http://www.cnblogs.com/del/archive/2012/01/05/2313410.html
阅读全文
posted @ 2013-12-23 22:03
DataSet Json 转化
摘要：来自 蓝颜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
delphi 序列化控件
摘要：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
