Скачать: CL | DM;

исправить ошибку 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.007 c