OleVariant 和字符串转化的问题？

Question

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'这一段丢掉

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ov: OLEVariant;
  v :Variant;
  s : String;
begin
 ov:=...........;
  v:=ov;
  s:=v;

Answer 2

因为#0为字符串结束的标志如果你用PChar就可以读到，不过也必须手工去读，就是说你要判断#0#0才是结束