2011年5月13日
Delphi 备忘五
摘要： 1. Variant和Stream的互换procedure VarToStream(var AStm: TStream; var AOvar: Olevariant);var p: Pointer;begin AStm:= TMemoryStream.Create; AStm.Position := 0; p := VarArrayLock(AOvar); AStm.Write(p^, VarArrayHighBound(AOvar, 1)); VarArrayUnlock(AOvar);end;procedure StreamToVar(var AStm: TStream; var AOva 阅读全文
posted @ 2011-05-13 17:08 Enli 阅读(317) 评论(0) 推荐(0)