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 发布