blob: d52041bad158bae60e18c03409556ed356926597 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ %fail }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
FuncA = function : Integer of object;
ObjA = class
function Func1: Integer;
procedure Proc1(const Arr: Array of char);
end;
var A : ObjA;
function ObjA.Func1: Integer;
begin
Result := 1;
end;
procedure ObjA.Proc1(const Arr: Array of char);
begin
end;
begin
A := ObjA.Create;
A.Proc1([A.Func1]);
a.free;
end.
|
