String 和 VariantArray
来源:互联网 发布:软件测试培训班 编辑:程序博客网 时间:2024/05/21 16:01
function StringToVariantArray(const S: string): OleVariant;
var
P: Pointer;
begin
Result := NULL;
if Length(S) > 0 then
begin
Result := VarArrayCreate([0, Length(S) - 1], varByte);
P := VarArrayLock(Result);
try
Move(S[1], P^, Length(S));
finally
VarArrayUnlock(Result);
end;
end;
end;
function VariantArrayToString(const V: OleVariant): string;
var
P: Pointer;
Size: Integer;
begin
Result := '';
if VarIsArray(V) and (VarType(V) and varTypeMask = varByte) then
begin
Size := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
if Size > 0 then
begin
SetLength(Result, Size);
P := VarArrayLock(V);
try
Move(P^, Result[1], Size);
finally
VarArrayUnlock(V);
end;
end;
end;
end;
- String 和 VariantArray
- c# String 和string
- List<string>和string[]
- String 和string
- String和string区别
- <string>和<string.h>
- String...和String[]区别
- String,String[],string三个用法和意思
- String和string的区别
- String和string的区别
- string和String的关系
- String和string的区别
- String interning 和 String.Empty
- string和String的区别
- String和string的区别
- String.getBytes()和new String()
- String常量和String对象
- <string.h> <string> 和<CString>
- spring,ioc模式与ejb3的SLSB实现
- 请不要做浮躁的人
- Google两个细微改变
- 自定义DataSet,并写入数据
- 准备开放我的工作流客户端开源程序
- String 和 VariantArray
- [中文]Do All in Cmd Shell
- Oracle 完整性约束(转摘)
- MySQL数据库备份(转)
- [水晶报表]分组时控制每页显示的组数目
- Google 的工作理念
- 我的100多款精典黑客小工具(2003年)
- php5中类的一些新的特征
- 关注POC