исправить ошибку 'regular procedure and method pointer' [D7, XP]
DdiK © (2012-10-12 15:51:00)
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:00) [1]
procedure of object
Наверх 
ЧАТ |
Орешник |
|
