🚀 go-pugleaf

btm <btm@gmx.net> wrote in message
news:37de2a8b.335943@news.spectraweb.ch...
> In a general form used by several other forms I defined a function
> reference like this [Delphi 1]:
>
>       type
>         TCheckFunc = function (FldNr: integer): Boolean;

This declares a function type that is declared at the main level of a unit,
not a class method.

>         TSetParam = class(TForm)
>           ....
>         public
>           CheckStatus: TCheckFunc;
>         end;
>
> In several of my forms I now want to do something like this:
>
>       type
>         TForm1 = class(TForm)
>           Button1: TButton;
>           procedure Button1Click(Sender: TObject);
>         private
>         public
>           function Form1Check (FldNr: integer): Boolean;

This is a class function.

>         end;
>

You can either change your type definition to

         TCheckFunc = function (FldNr: integer): Boolean of object;

or remove Form1Check from the form declaration and place it in the main body
of the unit, e.g.

type
    form1 = . . .
        end;

    function Form1Check . . .

Either will correct the error. However in this case you probably want to
change the function type definition (the first suggestion).