|
共有评论6条
当前显示最后6条评论
|
| xieyunc |
2007/3/23 0:36:21 |
运行效果图及详细说明见： http://xieyunc.blog.163.com/blog/static/1363060120072202376948/
建议盒子主人把程序截图放上来。 |
| james_ |
2007/3/23 9:35:38 |
看了你Blog上面的关键代码，说实在，你这样也可以说传递自定义Record？跟传递多个参数没啥区别。。。
至于你做的第一、二个函数有问题，我估计可以这样处理：
传递的结构不能包含String类型，只能传递基本类型（如：int、float、char、byte），如果要传递String，可以用array of [0...x] of char代替。
另外，你的function RecordToVariant(value:TARec):OleVariant;函数说明你的参数都是固定的，那样好像实际应用根本就没用，因为你每次都增加结构都要重新调整或者增加函数～～
如果能做到下面这样function RecordToVariant(ARec: Pointer; SizeOfRec: Integer):OleVariant;，才有通用性。 |
| zizii |
2007/3/24 19:46:06 |
| 截图已放。 |
| xieyunc |
2007/3/25 19:48:39 |
james_说得在理，只是我这个例子只是一个抛砖引玉，提供一些思路罢了，至少如何去用就得看需求了。
另：要传string类型的数据，如果数据量不是太大，可用shortstring或string[100]的形式。
函数说明你的参数都是固定的。。。。－－>其实没有任何一个函数是万能的，特别是存在自定义的结构类型参数的时候，还是那句话，有何需求满足应用就可以了。 |
| kevinhlj |
2007/3/30 22:36:10 |
to james_这有什么难点吗？
function RecordToVariant(ARec: Pointer; SizeOfRec: Integer):OleVariant;
我认为可以这样做吧
any record to stream stream to olevariant
就可以了吧? |
| james_ |
2007/4/4 17:45:21 |
| to kevinhlj，我有說難嗎？ |
| 我要发表评论 |
查看全部评论 |
