Delphi怎么定义一个有返回值的方法

delphi 里，有返回值的都是函数，没有返回值的是过程方法。

示例如下：

函数：

function Format(const Format: string const Args: array of const): string

begin

  Result := System.SysUtils.Format(Format, Args, FormatSettings)

end

过程：

procedure 顷手ShowMessage(const Msg: string)

begin

  ShowMessagePos(Msg, -1, -1)

end

需要提示的是:

在 delphi 里当定义了一个函数后，每个函数会自耐枣动生成一个 result 的变量，其类型就是定义的返回值类型，可以直接对 result 进雀亩嫌行赋值、计算等 *** 作，函数也会自动将 result 的最终值作为结果返回。

delphi 里 function 返回多个值，可以考虑以下方法：

一、函数斗猜袭的返回值使用 记录 record 、数组 array 等数据类型。 示例兆高代码如下：

Type

    TmyData = Record 先定义空兄一个Record有三个返回值

    Data1: string

    Data2: string

    Data3: string

end

//定义 function的代码

function Tform1.Myfunction(parm: string): TMydata

var MyData1: TMydata

begin

    MyData1.Data1:= 'This is Data1:'

    MyData1.Data2:= 'This is Data2:'

    MyData1.Data3:= 'This is Data3:'

    result:= MyData1      //传回为一个记录record

end

二、函数的参数使用 var 引用参数。示例代码如下：

function abc(var aa,bb,cc:double):string//返回3个double值,1个string值

var

  ret: IWantData

begin

  aa:=1.234

  bb:=2.021

  cc:=3.333

  result:=''

end

---