[fpc-pascal] parent class as a parameter type

[cobines]

Works for me:

program a;

{$mode objfpc}{$H+}

uses
  Classes;

procedure foo(AClass: TStrings);
begin
end;

var
  sl: TStringList;
begin
  foo(sl);
end.


--
cobines