02 2013 档案

Delphi通用的序列化代码
摘要：type TFoo = class public function Object2Json<T>(o: T): string; function Json2Object<T>(j: string): T; end; implementationfunction TFoo.Json2Object<T>(j: string): T;var ctx: TSuperRttiContext;begin ctx := TSuperRttiContext.Create; try Result := ctx.AsType<T>(SO[j]); finally c 阅读全文
posted @ 2013-02-19 17:31 littlestone08 阅读(367) 评论(0) 推荐(0)