文件和Variant之间的转换
<br />function FileToVariant(FileName: String): OleVariant; <br />var <br />AStream: TFileStream; <br />MyBuffer: Pointer; <br />begin <br /> AStream:=TFileStream.create(FileName,fmOpenRead); <br /> try <br /> aStream.Seek(0, soFromBeginning); <br />
原创
2010-10-18 15:13:00 ·
491 阅读 ·
0 评论