1573
社区成员
- 全部
记录类型转换成Variant类型的困惑
如何将一个记录类型转换成Variant类型.
这是在Com的连接点的时候出现的问题。在D5中在类型库中声明的记录类型的参数
当把把类型库作为事件源的时候产生的代码为Variant我应该如何转换呢？
TARec=record
a:widestring;
b:widestring;
c:widestring;
end
这样的一个变量ARec如何转换成Variant呢？
这是在Com的连接点的时候出现的问题。在D5中在类型库中声明的记录类型的参数
当把把类型库作为事件源的时候产生的代码为Variant我应该如何转换呢？
TARec=record
a:widestring;
b:widestring;
c:widestring;
end
这样的一个变量ARec如何转换成Variant呢？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
lvloj 2003-07-14
lifejoy(活着的穿马甲中) :
用 dolphin2001(抢包山) 的办法即可,不过TARec必须是ShortString类型
TARec=record
a:ShortString;
b:ShortString;
c:ShortString;
end
用 dolphin2001(抢包山) 的办法即可,不过TARec必须是ShortString类型
TARec=record
a:ShortString;
b:ShortString;
c:ShortString;
end
lifejoy 2003-06-23
thks
dolphin2001 2003-06-21
TARec=record
a:widestring;
b:widestring;
c:widestring;
end
// TARec ---> Variant
function RecordToVariant(value:TARec):OleVariant;
var
P:Pointer;
begin
Result := VarArrayCreate([0,sizeof(TARec)],varByte);
P := VarArrayLock(Result);
Move(value,P^,sizeof(P));
VarArrayUnlock(Result);
end;
// OleVariant ----> TARec
function VariantToRecord(value:OleVariant):TARec;
var
P:Pointer;
begin
P:= VarArrayLock(value);
Move(P^,Result,sizeof(TARec));
VarArrayUnlock(value);
end;
a:widestring;
b:widestring;
c:widestring;
end
// TARec ---> Variant
function RecordToVariant(value:TARec):OleVariant;
var
P:Pointer;
begin
Result := VarArrayCreate([0,sizeof(TARec)],varByte);
P := VarArrayLock(Result);
Move(value,P^,sizeof(P));
VarArrayUnlock(Result);
end;
// OleVariant ----> TARec
function VariantToRecord(value:OleVariant):TARec;
var
P:Pointer;
begin
P:= VarArrayLock(value);
Move(P^,Result,sizeof(TARec));
VarArrayUnlock(value);
end;
lifejoy 2003-06-20
我需要的是
v:Variant;
我要用v来表示ARec
v:Variant;
我要用v来表示ARec
erp2 2003-06-20
TVar=record
a:variant;
b:variant;
c:variant;
end;
TARec:=TVar;
a:variant;
b:variant;
c:variant;
end;
TARec:=TVar;
hiflower 2003-06-20
变通办法:
TYourRecord=class
a:Integer;
b:Integer;
end;
TYourVarData = packed record
VType: TVarType;
Reserved1, Reserved2, Reserved3: Word;
VComplex: TYourRecord;
Reserved4: LongInt;
end;
var
d:TYourVarData;
v:Variant;
v:=Variant(d);
TYourRecord=class
a:Integer;
b:Integer;
end;
TYourVarData = packed record
VType: TVarType;
Reserved1, Reserved2, Reserved3: Word;
VComplex: TYourRecord;
Reserved4: LongInt;
end;
var
d:TYourVarData;
v:Variant;
v:=Variant(d);
hiflower 2003-06-20
By default, Variants can hold values of any type except records, sets, static arrays, files, classes, class references, and pointers. In other words, variants can hold anything but structured types and pointers. They can hold interfaces, whose methods and properties can be accessed through them. (See Object interfaces.) They can hold dynamic arrays, and they can hold a special kind of static array called a variant array. (See Variant arrays.) Variants can mix with other variants and with integer, real, string, and Boolean values in expressions and assignments; the compiler automatically performs type conversions.
variant 中的困惑 QVariant v = qVariantFromValue((void *) a);a = (A *) v.value();发现新方法Q_DECLARE_METATYPE ( Type )This macro makes the type Type known to QMetaType. It is needed to use the type Type as a custom ...
_variant_t与其他数据类型的转换 转自：... 我们先看看COM所支持的一些类型的基本类： （微软提供，在comdef.h中定义） ..._bstr_t：对BSTR类型进行打包，并提供有用的操作和方法； _com_error：定义抛出的error对象； _com_p
python 学习指南_Python类型检查终极指南 python 学习指南In this guide, you will get a look into Python type checking. Traditionally, types have been handled by the Python interpreter in a flexible but implicit way. Recent versions of Python ...
深度学习中文故事生成_通过深度学习为您喜欢的类型生成新鲜的电影故事 深度学习中文故事生成After discovering time travel, the Earth’s inhabitants now live in futuristic cities, which are controlled by the government, for the duration of a decade. The government plans to...
使用Ehlib的DBDatetimeEditEh的困惑 控件显示 日期1：DBDatetimeEditEh1 日期2：DBDatetimeEditEh2 数据表显示：DBgridEh1（显示... 错误提示“不能将类型（unicodestring）转换为类型（double）”有点莫名其妙。难道缓存的值和控件的值感知不一致造成的？
《JavaScript权威指南第7版》第11章 JavaScript标准库 第11章 JavaScript标准库11.1 Set和Map11.1.1 Set类11.1.2 Map类11.1.3 WeakMap和WeakSet11.2 类型数组和二进制数据11.2.1 类型数组的类型11.2.2 创建类型数组11.2.3 使用类型数组11.2.4 类型数组的方法和属性11.2.5...
实验记录 | DNA数据的处理流程 我内心困惑什么呢？还是昨天和老妈讨论的，以及今天和董舜讨论的。 （1）我觉得自己在课题组中被“边缘化”。 没有被纳入到正式群中 做的事情也是细枝末节 目前也没有参与到一些正式的成员所参与的一些事情中，比如...
读《think in java 8》的学习记录（17） 转载：On Java 8 文章目录第十七章 文件文件和目录路径选取路径部分片段路径分析**Paths**的增减修改目录文件系统路径监听文件查找文件读写本章小结 第十七章 文件 在丑陋的 Java I/O 编程方式诞生多年以后，Java...
实验记录 | 为什么mtDNA的fastq数据会比对到常染色体上？ 刚刚验证了一下，原始的数据文件并没有弄错。 因为又从sra数据库中下载了这个文件，比对了作者提供的数据和我们下载解压后的数据，发现是同样的大小，因此，从原始数据层面可以控制是一致的。 ...
delphi精要之（二） Ctrl＋Shift＋方向键：将所选组件的位置移动一个栅格。 Shift＋TAB：选择当前组件的上一个组件。 Esc：选择当前组件的容器（通常是 TPanel、TGroupBox、TForm等）。 Ctrl＋J：插入标准语法代码。...Ctrl
Golang常见问题和答案 能力一般，水平有限，翻译纯属兴趣，如有错误请多指正～不过我不一定会改～ 起源 这个项目的目的是什么？ 在Go语言成立之初，虽只有十来年，编程界与如今已不相同。生产软件通常用C++或Java写的，Github还不存在，...
Paper：Sequence to Sequence Learning with Neural Networks Seq2Seq 模型论文。论文被引：12780（2020/11/07）；论文年份：NIPS 2014。
IT 常用词汇（一） 1, amend [ə’mend] vt. 修改；改善，改进 vi. 改正，改善；改过自新 n. (Amend)人名；(德、英)阿门德 2, bearer [‘bɛrɚ] n. 持票人；[建] 承木；[机] 托架；送信人；搬运工人 ...v....adj....4
深度学习与硬件GPU，软件框架关系及相关概念解析 套用：人工智能，深度学习，机器学习……不管你在从事什么工作，都需要了解这些概念。否则的话，三年之内你就会变成一只恐龙。 —— 马克·库班 本篇主要是为了在学习机器学习和深度学习之前进行一些扫雷性质的...
那些年我们错过的响应式编程 Skip to content原文链接 : The introduction to Reactive Programming you've been missing译者 : yaoqinwei校对者: yaoqinwei、bboyfeiyu、chaossss状态 : 未完成译者注：校对时请注意几个核心词翻译是否准确,...
valgrind-memcheck功能的使用和分析 调不尽的内存泄漏，用不完的Valgrind Valgrind 安装 ... 2. 解压安装包：tar –jxvf valgrind-3.2.3.tar.bz2 3. 解压后生成目录valgrind-3.2.3 4. cd valgrind-3.2.3 ...5. 运行./autogen.sh设置环境（需要...
valgrind的介绍、安装和使用 Valgrind manual：http://valgrind.org/docs/manual/manual.html valgrind介绍：l Valgrind查找内存泄露利器Valgrind是一个GPL的软件，用于Linux（For x86, amd64 and ppc32）程序的内存调试和代码剖析。...
C++ 类的动态组件化技术 N年前，我们曾在软件开发上出现了这样的困惑，用VC开发COM组件过于复杂，用VB开发COM组件发现效率低，而且不能实现面向对象的很多特性，例如，继承，多态等。更况且如何快速封装利用历史遗留的大量C++代码本身就是...
Valgrind memcheck 8种错误实例 调不尽的内存泄漏，用不完的ValgrindValgrind 安装1.... 解压安装包：tar –jxvf valgrind-3.2.3.tar.bz23. 解压后生成目录valgrind-3.2.34. cd valgrind-3.2.35. 运行./autogen.sh设置环境（需要标准的autoconf工...
CString彻底分析，很强悍的啊 是一种很有用的数据类型。它们很大程度上简化了MFC中的许多操作，使得MFC在做字符串操作的时候方便了很多。不管怎样，使用CString有很多特殊的技巧，特别是对于纯C背景下走出来的程序员来说有点难以学习。
CString 操作指南 这篇文章包括以下内容： CString 对象的连接 ...CString 型和 char* 类型的相互转化 char* 转化成 CString CString 转化成 char* 之一：使用LPCTSTR强制转化 CString 转化成 char* 之二：使用CString对象的
用WinInet开发Internet客户端应用指南 实现步骤大家知道，每个Internet客户端程序都伴随有一定的目的行为，如读文件、写文件、删除文件等等。客户端的程序要实现这些行为的先决条件是建立Internet连接。然后再根据不同的目的进行具体的操作。...
CString CString位于头文件afx.h中。 ... 能体现出 CString 类型方便性特点的一个方面就是字符串的连接，使用 CString 类型，你能很方便地连接两个字符串，正如下面的例子： CString gray("Gray");
计算机科学中具有特殊含义或易误解混淆的术语辨析 计算机科学中具有特殊含义或易误解混淆的术语辨析 这是我以前收集整理的文档，参考了一些网上的公开资料。这次发到这里，是因为可以随时修改。不足之处，敬请指正，以便修正，以免误导他人。 ...
Spring经典面试题总结，附带答案！ 一、一般问题 1. 不同版本的 Spring Framework 有哪些主要功能？ 2. 什么是 Spring Framework？ Spring 是一个开源应用框架，旨在降低应用程序开发的复杂度。... 它是轻量级、松散耦合的。... 它具有分层体系结构，...
RAD Studio 11.0 Alexandria release有何新的改变 RAD Studio 11.0 Alexandria release有何新的改变 目录 RAD Studio 11.0 Alexandria release第1个发行版有何新的改变 官方原文： ...VCL 表单设计器的高 DPIVCL 表单设计器的高 DPIVCL 表单设计器的高 DPI ...
