急!!!等待中! delphi 中Variant 如何转换成,一个流,或一个文件?? delphi 中Variant 如何转换成,一个流,或一个文件?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sData := TStringList.Create; sData.Text := VarToStr(VariantData); sData.SaveToFile(...); Variant 能直接转换成str吧?偶的Variant 是个文件呵 看看这个贴子当中有没需要的。http://topic.csdn.net/u/20080222/17/e052f82b-8867-4ac4-8eb0-5fe48890a5ca.html 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; 关于delphix的dxinput~~ 请问关于ini,Key名重新排序的问题 请问有什么控件能输入字,下拉菜单控件和图片 多重判断条件的书写规范 fastreport出错?? 100求教怎么向上查找! 从数据库把表内容显示到 treeview的问题 SOS!! 请各位大侠解决filter问题,答对立即给分,在线!! help ~~~~~~~~~ 使用ADO编程链接数据库,链接字符串如何创建?(要详细过程) 小项目有有兴趣的吗? THashedStringList和TStringList在多线程里面表现怎么这么奇怪?
sData := TStringList.Create;
sData.Text := VarToStr(VariantData); sData.SaveToFile(...);
http://topic.csdn.net/u/20080222/17/e052f82b-8867-4ac4-8eb0-5fe48890a5ca.html
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;