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;

總結(jié)

以上是生活随笔為你收集整理的Delphi中TVarRec做为参数的用法的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。