procedure pro1( v:TVarRec); begin case v.VType of vtobject: begin showmessage('integer'); end; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var f:tform1; v:TVarRec; begin v.VType:=vtObject; v.VObject:=@f; pro1(v); end;
Delphi中TVarRec做为参数的用法
最新推荐文章于 2024-05-22 12:10:28 发布