16,746
社区成员
发帖
与我相关
我的任务
分享OleVariant 和字符串转化的问题？
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'这一段丢掉
var
s: AnsiString;
ol: OLEVariant;
p: PWideChar;
begin
s := 'TPF0'+#$B+'TCmpHashMap'+#0+#$17+'zzComponentHeadProperty';
p := StringtoOleStr(s);
ol := s;
end;
怎么转化都会把+#0+#$17+'zzComponentHeadProperty'这一段丢掉
...全文
请发表友善的回复…
发表回复
popmailzjw 2005-03-23
- 打赏
- 举报
因为#0为字符串结束的标志
如果你用PChar就可以读到，不过也必须手工去读，就是说你要判断#0#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;
var
ov: OLEVariant;
v :Variant;
s : String;
begin
ov:=...........;
v:=ov;
s:=v;
kp1150 2005-03-22
- 打赏
- 举报
應該會自動轉換!
