木
木工
Unregistered / Unconfirmed
GUEST, unregistred user!
rt
仙
仙剑奇侠
Unregistered / Unconfirmed
GUEST, unregistred user!
定义一个OleVariant的变量
然后把string赋值过去不就行了吗
然后再赋值回来不就行了吗
不过你要确认要用的确实是字符串
然后把string赋值过去不就行了吗
然后再赋值回来不就行了吗
不过你要确认要用的确实是字符串
T
TYZhang
Unregistered / Unconfirmed
GUEST, unregistred user!
var S,S1:String;
V
levariant;
begin
S:='怎样将string转换成olevariant？？？在线！！ ';
V:=S; //直接使用，delphi会自动处理。
S1:=V;
ShowMessage(S1);
end;
V
levariant;begin
S:='怎样将string转换成olevariant？？？在线！！ ';
V:=S; //直接使用，delphi会自动处理。
S1:=V;
ShowMessage(S1);
end;
X
xuhao1
Unregistered / Unconfirmed
GUEST, unregistred user!
试试 olevariant(s);
K
kouchun
Unregistered / Unconfirmed
GUEST, unregistred user!
valtostr
F
fullhappy
Unregistered / Unconfirmed
GUEST, unregistred user!
给你个转换函数吧
F
fullhappy
Unregistered / Unconfirmed
GUEST, unregistred user!
先将 string转换成流TStringStream
procedure StreamToVariant(var Data: OleVariant; Stream: TStringStream);
var
p: Pointer;
begin
Data := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Data);
try
Stream.Position := 0;
Stream.Read(p^, Stream.Size);
finally
VarArrayUnlock(Data);
end;
end;
procedure StreamToVariant(var Data: OleVariant; Stream: TStringStream);
var
p: Pointer;
begin
Data := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Data);
try
Stream.Position := 0;
Stream.Read(p^, Stream.Size);
finally
VarArrayUnlock(Data);
end;
end;
X
xuhao1
Unregistered / Unconfirmed
GUEST, unregistred user!
直接赋值