Hmillet的专栏

Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。 这个单元提供两套四个公开函数： 对流的编解码： procedure EncodeStream(Input, Output: TStream); // 编码 procedure DecodeStream(Input, Output: TStream); // 解码

TMemoryStream、String与OleVariant互转 //////////////////////////////////////////////////////////////////////////////// //功能: STRING 的内容流化到 OLEVARIANT 中 //参数： ////////////////////////////////////////

一、DataSet转JSON [delphi] view plain copy print? //1）数据集转换为JSON字符串：  //需USES System.JSON;    function DataSetToJson(ADataset: TDataSet): string;  // [{"CityId":"18","CityName":"西安"},{"Ci

TMemoryStream、String与OleVariant互转 //////////////////////////////////////////////////////////////////////////////// //功能: STRING 的内容流化到 OLEVARIANT 中 //参数： ////////////////////////////////////////