pascal Variants示例代码

代码语言:pascal

所属分类:其他

代码描述:pascal Variants示例代码

代码标签:

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

Program exVariant;

uses variants;
type
   color = (red, black, white);

var
   v : variant;
   i : integer;
   r: real;
   c : color;
   as : ansistring;


begin
   i := 100;
   v:= i;
   writeln('Variant as Integer: ', v);

   r:= 23.........完整代码请登录后点击上方下载按钮下载查看

网友评论0