Xe版本当中 pchar string
Pansichar ansichar
Pansistring ansistring
Pchar string widestring
当dll返回pansistring时
var
lv1:ansistring;
begin
lv1:=Pansichar(func1^);
endl