懒蛋皮球

摘要： uses DBXJSONReflect,DBXJSON; TTest=class private FAnsistr:AnsiString; Fstr:string; Fms:TStream; public constructor Create; destructor Destroy; override; end;{ Ttest }constructor Ttest.create;begin Fms:=TMemoryStream.Create;end;destructor Ttest.Destroy;begin Fms.Free; inherited;end;procedure TForm1.B 阅读全文