Works for me:

program a;

{$mode objfpc}{$H+}

uses
  Classes;

procedure foo(AClass: TStrings);
begin
end;

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


--
cobines
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to