3419
社区成员
3.3w+
社区内容
- 主页
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日
應該會自動轉換!