[fpc-pascal] static record (class?) procedures in records not supported :(, better example

[Skybuck Flying]

Hello,

Delphi allows the following code to be compiled and run:

// *** Begin of Demo ***

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';


type
 TmyRecord = record
  A,B,C,D,E,F : integer;
 end;

 TmyObject = record
  A,B,C,D,E,F : integer;

  class procedure Test; static;
 end;


class procedure TmyObject.Test;
begin
 writeln('hi');
end;

begin
 TmyObject.Test;

 readln;
end.

// *** End of Demo ***

Just one of the new features.

Bye,
  Skybuck.