TVarRec类型的参数，我怎么传？？？？

Question

一个函数的参数类型TVarRec类型，我怎么传递啊？例如我传String。
另外返回的也是TVarRec类型，我怎么转换？？？？？？？？？？？？

Answer 1

function Test(const Param:TVarRec):TVarRec;
var
 str:string;
begin
  str:=strpas(Param.VPChar);
  str:='Result:---'+str;
  result.VString:=@str[1];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  VarRec:TVarRec;
  str:string;
begin
  str:='short string field';
  VarRec.VPChar:=@str[1];
  str:=strpas(Test(VarRec).VPChar);
  showmessage(str);
end;