delphi 中Variant 如何转换成,一个流,或一个文件??
解决方案 »
- 字符串在Firebird数据库中存储的问题
- TreeView或fcTreeView 如何展开全部节点
- 关于计算的问题
- delphi初接触 大家介绍几本好书吧
- 惭愧呀,又诞生了一个两星水货~
- 100分求解!dbgrid中,为了使增加纪录后整个的排序不发生变化,新加了一个字段seq,存放每条纪录的位置,但最后更新数据库时却报错,真是
- 一个dbgrid问题,向高手请教:怎样获得dbgrid 里的记录的总的行数
- delphi中一个窗体当它显示在屏幕上时它最后完成的是什么工作?
- 用SQL实现三层结构的数据存储,参数不能为空的问题
- IP的GRID控件如何设置某一列的背景景色??
- 小项目有有兴趣的吗?
- 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;