Hi,

I want to make a reference to a static method of an object, but keep getting error messages.

================================================================
program StaticMethodPtr;
{$MODE objfpc}{$STATIC ON}
type
  MyMethod = procedure (A: Integer) of object;
  MyObject = object
    procedure Test(A: Integer); static;
  end;
procedure MyObject.Test(A: Integer);
begin
  Writeln(A);
end;
var
  Ob: MyObject;
  M: MyMethod;

begin

  M := @MyObject.Test;
     { ^ Error: Incompatible types: got "<address of
         procedure(LongInt) of object;Register>" expected
         "<procedure variable type of  procedure(LongInt)
         of object;Register>" }
  M := @Ob.Test;
     { ^ Incompatible types: got "STATICMETHODPTR.
         <procedure variable type of procedure(LongInt)
         of object;Register>" expected "STATICMETHODPTR.
         <procedure variable type of procedure(LongInt)
         of object;Register>" }

end.
================================================================

Is this a bug or an expected behavior?

It is expected behaviour. "Procedure of object" only works with classes, and only with real methods, not with class methods.

Michael.

Op 2010-07-28 19:41, Michael Van Canneyt het geskryf:

It is expected behaviour. "Procedure of object" only works with classes, and only with real methods, not with class methods.

Then should the "procedure of object" syntax change to become "procedure of class" - to be less ambiguous? :)

Regards,
- Graeme -