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 发布
本文展示了一个使用Delphi编写的程序片段，该程序通过一个案例展示了如何利用TVarRec类型来封装不同类型的数据，并通过case语句进行类型检查与相应操作。此案例中主要关注了对象类型的处理。
扫一扫
636
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
