Go 和 Delphi 定义可变参数函数的对比

使用可变参数函数具有灵活性、重用性、简化调用等优点,各个语言有各自定义可变参数函数的方法,也有通用的处理方法,比如使用数组、定义参数结构体、使用泛型等。

这里总结记录一下 go、delphi 的常用的定义可变参数函数的方式!

一、Go 定义可变参数函数

  • 定义方式:在类型前面加上省略号(...),如果将可变参数定义为 ...interface{} 类型,则可传递任意类型的值给函数
  • 代码示例:
package main  import (  "fmt"  
)  // 定义一个带有可变参数sum的函数  
func sum(numbers ...int) int {  total := 0  for _, num := range numbers {  total += num  }  return total  
}  func main() {  // 调用sum函数并传入可变数量的参数  fmt.Println(sum(1, 2, 3)) // 输出: 6  // 也可以通过一个切片来传递参数  numbers := []int{5, 6}  fmt.Println(sum(numbers...)) // 输出: 11  
}

可变参数定义为 ...interface{} 类型:

package main  import (  "fmt"  
)  func printValues(values ...interface{}) {  for _, value := range values {  switch v := value.(type) {  case int:  fmt.Println(v, "is an int")  case string:  fmt.Println(v, "is a string")  default:  fmt.Println(v, "is of a different type")  }  }  
}  func main() {  printValues(1, "two", 3.0)  
}
  • 注意事项:

①可变参数必须是函数参数列表中的最后一个参数

②调用函数传入切片时,需要在切片后加(...),否则只会将切片本身作为一个单独的参数传递给函数,而不是切片中的元素

③用 ...interface{}作为参数类型时,需使用类型断言来处理不同的类型

二、Delphi 定义可变参数函数

  • 定义方式:使用数组(array of const),结合 TVarRec 结构体判断参数类型
  • 代码示例:
type//定义一个简单的类,用来作为测试可变参数函数的其中一个参数TPerson = classprivatename: string;end;//定义该函数的参数为可变参数
procedure PrintMultipleParams(args: array of const);//可变参数函数的实现部分
procedure PrintMultipleParams(args: array of const);
vari: integer;sInfo: string;
beginsInfo := '';for i := Low(args) to High(args) dobegin// 通过 TVarRec().VType 判断参数的类型, TVarRec(args[i]).VInteger 取值case TVarRec(args[i]).VType ofvtInteger:sInfo := sInfo + '整形值: ' + IntToStr(TVarRec(args[i]).VInteger) + #13#10;vtUnicodeString:sInfo := sInfo + '字符串: ' + string(TVarRec(args[i]).VString) + #13#10;vtObject:  // 这里假定确定类为 TPerson ,获取 person.namesInfo := sInfo + '类名: ' + TVarRec(args[i]).VObject.ClassName + ' -- '+ TPerson(TVarRec(args[i]).VObject).name+ #13#10;elsesInfo := sInfo + ' -- 不支持的类型';end;end;ShowMessage(sInfo);
end;//调用可变参数函数
procedure TForm1.btn1Click(Sender: TObject);
varperson: TPerson;
begin// 传递 3 个参数PrintMultipleParams([1, '测试可变参数', 3]);// 传递 4 个参数PrintMultipleParams([1, '测试可变参数', 3, '中国']);// 传递 2 个参数person := TPerson.Create;tryperson.name := '可变参数是 TObject';PrintMultipleParams([1, person]);finallyFreeAndNil(person);end;
end

测试结果:

  • 注意事项:

TVarRec 是 Delphi 中用于表示一个记录的类型,该记录有一个可以保存多种值的变体部分。这些值可以包括整数、布尔、字符、实数、字符串、指针、类、类引用、接口、变体等。

VType 字段用于表示记录值的类型,对应的值分别用 VInteger、VString、VObject等获取。

delphi 中 TVarRec 的定义如下:

  TVarRec = record { do not pack this record; it is compiler-generated }case Integer of0: (case Byte ofvtInteger:       (VInteger: Integer);vtBoolean:       (VBoolean: Boolean);
{$IFNDEF NEXTGEN}vtChar:          (VChar: _AnsiChr);
{$ENDIF !NEXTGEN}vtExtended:      (VExtended: PExtended);
{$IFNDEF NEXTGEN}vtString:        (VString: _PShortStr);
{$ENDIF !NEXTGEN}vtPointer:       (VPointer: Pointer);
{$IFNDEF NEXTGEN}vtPChar:         (VPChar: _PAnsiChr);
{$ENDIF !NEXTGEN}
{$IFDEF AUTOREFCOUNT}vtObject:        (VObject: Pointer);
{$ELSE}vtObject:        (VObject: TObject);
{$ENDIF}vtClass:         (VClass: TClass);vtWideChar:      (VWideChar: WideChar);vtPWideChar:     (VPWideChar: PWideChar);
{$IFNDEF NEXTGEN}vtAnsiString:    (VAnsiString: Pointer);
{$ENDIF !NEXTGEN}vtCurrency:      (VCurrency: PCurrency);vtVariant:       (VVariant: PVariant);vtInterface:     (VInterface: Pointer);vtWideString:    (VWideString: Pointer);vtInt64:         (VInt64: PInt64);vtUnicodeString: (VUnicodeString: Pointer););1: (_Reserved1: NativeInt;VType:      Byte;);end;

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.rhkb.cn/news/336593.html

如若内容造成侵权/违法违规/事实不符,请联系长河编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

数据挖掘与机器学习——回归分析

目录 回归分析定义: 案例: 线性回归 预备知识: 定义: 一元线性回归: 如何找出最佳的一元线性回归模型: 案例: python实现: 多元线性回归 案例: 线性回归的优缺点…

基于xilinx FPGA的 FFT IP使用例程说明文档(可动态配置FFT点数,可计算信号频率与幅度)

目录 1 概述2 IP examples功能3 IP 使用例程3.1 IP设置3.2 fft_demo端口3.3 例程框图3.4 仿真结果3.5 仿真验证得出的结论4 注意事项5例程位置 1 概述 本文用于讲解xilinx IP 的FFT ip examples的功能说明,方便使用者快速上手。 参考文档:《PG109》 2 …

如何配置才能连接远程服务器上的 redis server ?

文章目录 Intro修改点 Intro 以阿里云服为例。 首先,我在我买的阿里云服务器中以下载源码、手动编译的方式安装了 redis-server,操作流程见:Ubuntu redis 下载解压配置使用及密码管理 && 包管理工具联网安装。 接着,我…

Atlas 血缘分析-hive/spark

Apache Atlas部署安装 这里需要注意,需要从官网下载Atlas的源码,不要从git上分支去checkout,因为从分支checkout出来的代码,无法正常运行,这里小编使用针对Atlas-2.3.0源码进行编译. mvn clean -DskipTests package …

2024 京麟ctf -MazeCodeV1

文章目录 检查代码思路一个字节的指令注意附上S1uM4i佬们的exp https://www.ctfiot.com/184181.html 检查 代码 __int64 __fastcall check_solve(char *a1) {__int64 result; // rax__int64 v2; // rax__int64 index_step; // rax__int64 v4; // rax__int64 v5; // rax__int64…

MySQL索引与事务

1. 索引 (1)概念 索引是一种特殊的文件,包含着对数据表里所有记录的引用指针。可以对表中的一列或多列创建索引, 并指定索引的类型,各类索引有各自的数据结构实现。 (2)利弊 利: 数…

基于51单片机的温湿度控制系统

一.硬件方案 本设计采用51单片机每2秒钟从DHT11温湿度传感器中读入温度和湿度,在液晶屏上即时显示。液晶屏上同时显示温湿度上限值,该上限值保存外外部EEPROM存储器中,掉电不失,并且可以通过四只按键上调或下调。当温度或湿度值超…

车机壁纸生成解决方案,定制化服务,满足个性化需求

在数字化与智能化浪潮的推动下,汽车内部设计已不再仅仅满足于基本功能的需求,更追求为用户带来前所未有的视觉享受与沉浸式体验。美摄科技,凭借其在图像生成与处理领域的深厚积累,推出了一款创新的车机壁纸生成解决方案&#xff0…

LORA微调,让大模型更平易近人

技术背景 最近和大模型一起爆火的,还有大模型的微调方法。 这类方法只用很少的数据,就能让大模型在原本表现没那么好的下游任务中“脱颖而出”,成为这个任务的专家。 而其中最火的大模型微调方法,又要属LoRA。 增加数据量和模…

VMware ESXi 7.0 U3q 发布 - 领先的裸机 Hypervisor

VMware ESXi 7.0 U3q 发布 - 领先的裸机 Hypervisor VMware ESXi 7.0 Update 3 Standard & All Custom Image for ESXi 7.0U3 Install CD 请访问原文链接:https://sysin.org/blog/vmware-esxi-7-u3/,查看最新版。原创作品,转载请保留出…

[pdf,epub]《软件方法》2024版电子书共290页(202405更新)

DDD领域驱动设计批评文集 做强化自测题获得“软件方法建模师”称号 《软件方法》各章合集 已上传本账号CSDN资源。 或者到以下链接下载: http://www.umlchina.com/url/softmeth2024.html,或点击“阅读原文”。 如果需要提取码:umlc 已排…

浅谈网络安全态势感知

前言 网络空间环境日趋复杂,随着网络攻击种类和频次的增加,自建强有力的网络安全防御系统成为一个国家发展战略的一部分,而网络态势感知是实现网络安全主动防御的重要基础和前提。 什么是网络安全态势感知? 态势感知一词来源于对…

图形学初识--空间变换

文章目录 前言正文矩阵和向量相乘二维变换1、缩放2、旋转3、平移4、齐次坐标下总结 三维变换1、缩放2、平移3、旋转绕X轴旋转:绕Z轴旋转:绕Y轴旋转: 结尾:喜欢的小伙伴可以点点关注赞哦 前言 前面章节补充了一下基本的线性代数中…

软件安全复习

文章目录 第一章 软件安全概述1.1 信息定义1.2 信息的属性1.3 信息安全1.4 软件安全1.5 软件安全威胁及其来源1.5.1 软件缺陷与漏洞1.5.1.1 软件缺陷1.5.1.2 漏洞1.5.1.3 软件漏洞1.5.1.4 软件缺陷和漏洞的威胁 1.5.2 恶意软件1.5.2.1 恶意软件的定义1.5.2.2 恶意软件的威胁 1.…

Mysql搭建主从同步,docker方式(一主一从)

服务器:两台Centos9 用Docker搭建主从 使用Docker拉取MySQL镜像 确保两台服务器都安装好了docker 安装docker请查看:Centos安装docker 1.两台服务器都先拉取mysql镜像 docker pull mysql 2.我这里是在 /opt/docker/mysql 下创建mysql的文件夹用来存…

java人口老龄化社区服务与管理平台源码(springboot+vue+mysql)

风定落花生,歌声逐流水,大家好我是风歌,混迹在java圈的辛苦码农。今天要和大家聊的是一款基于springboot的人口老龄化社区服务与管理平台。项目源码以及部署相关请联系风歌,文末附上联系信息 。 项目简介: 人口老龄化…

在线思维导图编辑!3个AI思维导图生成软件推荐!

思维导图,一种以创新为驱动的视觉化思考工具,已经渗透到我们日常生活和工作的各个角落。当我们需要整理思绪、规划项目或者梳理信息时,思维导图总能提供极大的帮助。 近些年随着云服务等基础设施的完善,我们可以看到越来越多提供…

可视化大屏也在卷组件化设计了?分享一些可视化组件

hello,我是大千UI工场,这次分享一些可视化大屏的组件,供大家欣赏。(本人没有源文件提供)

Nacos 微服务管理

Nacos 本教程将为您提供Nacos的基本介绍,并带您完成Nacos的安装、服务注册与发现、配置管理等功能。在这个过程中,您将学到如何使用Nacos进行微服务管理。下方是官方文档: Nacos官方文档 1. Nacos 简介 Nacos(Naming and Confi…

【雷丰阳-谷粒商城 】【分布式基础篇-全栈开发篇】【00】补充

持续学习&持续更新中… 守破离 【雷丰阳-谷粒商城 】【分布式基础篇-全栈开发篇】【00】补充 WindowsCMD插件IDEAVsCode MavenvagrantDocker解决MySQL连接慢问题启动(自动)Docker注意切换到root用户远程访问MySQL MyBatisPlusVue模块化开发项目结构…