Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

object pascal   Найти похожие ветки 

← →
MBo   (2002-04-06 23:29) [3]

извращаемся?

procedure TForm1.Button3Click(Sender: TObject);
type TProc=Procedure of object;
var m:TMethod;
begin
MyObject := B.create;
M.Code:=@A.f;
M.Data:=MyObject;
Tproc(M);
myobject.free;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

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