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 中//参数：////////////////////////////////////////