исправить ошибку regular procedure and method pointer

← →
DdiK © (2012-10-12 15:51) [0]

type TForm1 = class(TForm) procedure f2; private public end; type TMyF = procedure; var a: array [1..2] of TMyF; implementation {$R *.dfm} procedure tForm1.f2; begin Brush.Color:=clBlack; img1.Canvas.RoundRect(10,10,110,210,50,100); end; procedure TForm1.FormCreate(Sender: TObject); begin a[2]:=f2; // 82 a[2]; end; end.

GlavPas.pas(82): Incompatible types: "regular procedure and method pointer"

Как исправить?

← →
Плохиш © (2012-10-12 16:03) [1]

procedure of object

исправить ошибку regular procedure and method pointer Найти похожие ветки