Question

是否可以将对象函数作为参数传递给过程而不是传递整个对象？

我有一个记录定义，其函数定义为公共类参数，例如：

    TMyRecord = record
      public
        class function New(const a, b: Integer): TMyRecord; static;
        function GiveMeAValue(inputValue: integer): Single;
      public
        a, b: Integer;
      end;

该功能可能类似于：

    function TMyRecord.GiveMeAValue(inputValue: Integer): Single;
    begin
      RESULT := inputValue/(self.a + self.b);
    end;

然后我希望定义一个调用类函数GiveMeAValue的过程，但我不想将它传递给整个记录。我可以做这样的事情，例如：

    Procedure DoSomething(var1: Single; var2, var3: Integer, ?TMyRecord.GiveMeAValue?);
    begin
      var1 = ?TMyRecord.GiveMeAValue?(var2 + var3);
      //Do Some Other Stuff
    end;

如果是，那么我如何正确地将该函数作为过程参数传递？

Answer 1

您可以为函数定义新类型，如

TGiveMeAValue= function(inputValue: integer): Single of object;// this definition works fine for methods for records.

然后定义方法DoSomething

Procedure DoSomething(var1: Single; var2, var3: Integer;GiveMeAValue: TGiveMeAValue);
begin
  writeln(GiveMeAValue(var2 + var3));
end;

并使用如此

var
  L : TMyRecord;
begin
    l.a:=4;
    l.b:=1;
    DoSomething(1, 20, 5, L.GiveMeAValue);
end;

如何在Delphi程序中将函数作为参数传递？

1 个答案: