delphi 中Variant 如何转换成,一个流,或一个文件??

解决方案 »

  1.   


     sData := TStringList.Create;
     sData.Text := VarToStr(VariantData); sData.SaveToFile(...); 
      

  2.   

    Variant 能直接转换成str吧?偶的Variant 是个文件呵
      

  3.   

    看看这个贴子当中有没需要的。
    http://topic.csdn.net/u/20080222/17/e052f82b-8867-4ac4-8eb0-5fe48890a5ca.html
      

  4.   

    procedure VariantToStream (const v : olevariant; Stream : TMemoryStream);
    var
      p : pointer;
    begin
      Stream.Position := 0;
      Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v,  1) + 1;
      p := VarArrayLock (v);
      Stream.Write (p^, Stream.Size);
      VarArrayUnlock (v);
      Stream.Position := 0;
    end;