摘要: Variant 与 流(TStream)相互转换 代码 Variant转TStream procedure VariantToStream(Stream: TStream; const Value: Variant); var p: Pointer; begin if VarIsNull(Value 阅读全文
posted @ 2023-04-23 15:41 txgh 阅读(95) 评论(0) 推荐(0) 编辑