OleVariant 和字符串转化的问题?

zhenshunli 2005-03-22 11:25:07
procedure TForm1.Button1Click(Sender: TObject);
var
s: AnsiString;
ol: OLEVariant;
p: PWideChar;
begin
s := 'TPF0'+#$B+'TCmpHashMap'+#0+#$17+'zzComponentHeadProperty';
p := StringtoOleStr(s);
ol := s;
end;
怎么转化都会把+#0+#$17+'zzComponentHeadProperty'这一段丢掉
...全文
103 点赞 收藏 3
写回复
3 条回复
popmailzjw 2005年03月23日
因为#0为字符串结束的标志

如果你用PChar就可以读到,不过也必须手工去读,就是说你要判断#0#0才是结束
回复 点赞
laiqinghe 2005年03月22日
procedure TForm1.Button1Click(Sender: TObject);
var
ov: OLEVariant;
v :Variant;
s : String;
begin
ov:=...........;
v:=ov;
s:=v;
回复 点赞
kp1150 2005年03月22日
應該會自動轉換!
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3419

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告