可变类型开放数组Demo

最新推荐文章于 2024-10-11 13:45:10 发布

原创最新推荐文章于 2024-10-11 13:45:10 发布 · 745 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

数组专栏收录该内容

8 篇文章

订阅专栏

本文展示了一个Pascal语言中的示例程序，该程序定义了一个处理不同类型数组元素的方法。通过遍历数组并对每个元素进行类型检查，程序能够根据元素的数据类型将它们格式化为字符串并连接起来。案例中演示了如何使用case语句来实现不同类型数据的处理，并最终显示处理结果。

function myFunc(a: array of const): string;
var
  i: integer;
begin
  for i := Low(a) to High(a) do

    case a[i].VType of
      0:
        begin
          result := Result + ' ' + Format('%d', a[i]);
        end;
      1:
        Result := Result + ' ' + 'boolea';
      11:
        Result := Result + ' ' + format('%s', a[i]);
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(myFunc([22, 55, True]));
end;