Mam problem z przekazaniem argumentu do statycznej funkcji. Jeśli wywołam ją normalnie to jest OK, natomiast gdy poprzez wskaźnik na funkcję, to przekazuje nil jako argument. Nie wiem jak to obejść.
Delphi XE.
type
TA = class
class procedure MyFun(Obj: TStrings);
end;
class procedure TA.MyFun(Obj: TStrings);
begin
Showmessage(IntTOStr(Obj.Count));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
T: TStringList;
P: procedure(Obj: TStrings);
begin
T := TStringList.Create;
T.Append('TEST');
P := @TA.MyFun;
TA.MyFun(T); //działa
P(T); //przekazuje nil
end;