[fpc-pascal] (no subject)

Sven Barth pascaldragon at googlemail.com
Thu Feb 23 17:20:13 CET 2012


Am 23.02.2012 17:17, schrieb Everton Vieira:
> Is there any plans to implement public procedures/function of a class
> that can be used without been necessary to create the class?

Do you know class procedures/functions?

=== example begin ===

type
   TTestClass = class
     class procedure Foo;
     class function Bar: LongInt;
   end;

class procedure TTestClass.Foo;
begin

end;

class function TTestClass.Bar: LongInt;
begin

end;

var
   x: LongInt;
begin
   TTestClass.Foo;
   x := TTestClass.Bar;
end.

=== example end ===

Regards,
Sven



More information about the fpc-pascal mailing list